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ABSTRACT 


This dissertation presents a method for the analysis 
Ofpa Cramen subjected. to-ei ther) afblastedoady,ortan eanth= 
quake motion. The procedure accounts for the inelastic 
action of the frame members and the other significant 
secondary effects. A behavioral study has been performed 
using the procedure and as a result, a tentative design 
procedure for steel frames subjected to blast loads has 
been proposed. 

The analytical model used to represent the frame has 
equal numbers of stories and bays as the actual frame. 

Tae frameamaye Contadnashearwadisri edne the) analysis 4a £ri= 
linear type of moment-curvature-thrust relationship is 
assumed for the structural components with a hysteresis 
bule employedjansgannattempiyto. account;fieor the ancreasang 
strength, under, reversals, of) loading}. 

Thesinelastic action of the members and the P-A 
effect are considered by introducing an equivalent rotation- 
al spring at each member end. By selecting the properties 
o£, the; rokational. springrproperly,p@theanesponsefor theymodel 
to lateral load can closely simulate that of an actual 
Lramedy,Other .pecondaryecffectspsucheas; theeshearydeferma-— 
tions of the members. and joints, the effect.of semi-rigid 


COMMectLions, etc., may also be considered by modifying the 
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Properties or the rotational springs. 

The standard slope deflection equations are modified 
fo meet the present situation. When these equations are 
usecadmetowconstruct. the frame Sstifiiness matrix, the computa-— 
tion in the inelastic range can be done in the same manner 
as those in the elastic range. The stiffness matrix is 
thus updated to be compatible with the deteriorated struc- 
ture sat each instant of the motion. 9§The equations of 
motion are solved using a linear acceleration method. 

As a result of behavioral study performed, an empiri- 
Calmequatvonus.Or tie calculation of the cundamentalsnatural 
period has been proposed (the error is usually less than 
53). lit faddi tion, once. the moditied toval. impulse of a 
blast load is defined, the relationships between the blast 
Toad intensity and the resisting base shear canybe expressed 
by a relatively simple formula. Once the base shear is 
known, the required strengths for the frame members may be 
estimated. 

A design procedure is proposed to select a set Gyr 
member sizes to resist an expected blast load. The proced- 
ure eliminates the need for a dynamic analysis for regular 
frames. Although the frames designed according to this 
DLOCcedune can, be fexpected to behave "satistactorily, it as 


always desirable to perform a dynamic analysis if possible. 
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Chapter 1. 


INTRODUCTION 


1-1 Purpose of Investigation. 

The design of structural frames to resist forces 
induced during an earthquake motion or blast disturbance 
is generally a semiempirical procedure with the forces 
specified being based primarily on dynamic analyses of 
Simplified structures and modified in the light of obser- 
vations of past failures. In order to design on a more 
rational basis, it is first necessary to have available a 
procedure for the analysis of complex structures; this 
procedure is the subject of this dissertation. 

The analytical procedure presented herein is able to 
determine the inelastic response: of rigidly connected 
multibay multistory planar frames using a large capacity 
digital computer. Interest is focused on steel frames with 
or without shearwalls, although with minor modifications 
in the input data, concrete frames may also be treated. 
The disturbance applied to a structure may be either an 
earthquake motion or blast loading. 

The secondary moments produced by the vertical loads 
acting through the sway displacements of the frame are 
treated together with the effects of inelastic action 


(including strain-hardening) of the members. The effects 
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of semirigid connections, shear deformations of joint panels 
and shear deformation of the members can also be taken into 
account without increasing the complexity of the procedure. 
The above effects are treated in an approximate manner due 
to the complexity of the overall problem. 

The second objective of this dissertation is to present 
the results of a behavioral study, pe:formed using the 
analytical procedure. The following factors are specific- 
ally considered in the study. 

a) The effects of beam stiffness and column stiffness 

distributions over the height of a structure on the 

natural periods. 

(b) The effects of various types of blast loads on 

the response of a structure. 

c) The effects of beam stiffness and column stiffness 

distribution over the height of a structure on the 

response of the structure (both in elastic and inelas- 
tic ranges) to aiblast load. 

These factors are examined by investigating the re- 
sponse of several steel frames having different structural 
arrangements. By analyzing the results of the behavioral 
study, a tentative design procedure, which leads to an 


efficient design against blast loading, is proposed. 
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1-2 Previous Studies. 

The objective of this section is to locate the present 
study in the stream of current research; the section is not 
intended to be a complete survey of the literature in this 
field. The discussion is oriented in such a way that one 
can realize the necessity of the present type of study and 
understand the background on which certain assumptions are 
made in the present analysis. The discussion is also 
limited to the literature published in English, although 
Many reports in Japanese (and possibly in other languages) 
are available in the field of dynamic analysis. 

The section is divided into three parts. The study of 
the static response of both member elements and entire 
frames is first discussed, since this knowledge has great 
influence on the analytical model on which a dynamic 
analysis is performed. A clear understanding of the charac-— 
teristics of dynamic loads is also highly desirable. The 
present state of this knowledge is briefly discussed in 
the second part of the review. In the final part, the 
technique used to solve the equations describing the dynamic 
response are reviewed. Current topics in the field of 


dynamic analysis are also introduced. 


1-2-1 Member and Frame Response to Static Load. 


In order to analyze a frame, it is necesSsary to prepare 
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an end moment-end rotation relationship for every member for 
an assumed value of the axial force. 

Such an end moment-end rotation relationship for a 
steel member has often been represented by an elastic- 
perfectly plastic relationship as shown in Fig. 1-1 or by 
a bilinear relationship having a negative slope as shown 
in Fig. 1-2; depending upon whether the P-A effect is 
included at this stage. 

The role of strain-hardening, which was ignored in 
the above models, has been taken into account by 


2 in their dynamic 


Jennings and Husiat and Thomaides 
analyses. The end moment-end rotation relationship em- 
ployed was a bilinear relationship with a positive second 
branch as shown in Fig. 1-3. It has been observed that 
under reversals of loading, the strength of column members 
increases with an increased number of load applications.°*'*"> 
Kato and eee have shown that the strength increase is 
caused partly by the residual P-A moment and partly by 
strain-hardening and have proposed a hysteresis rule of 
the type shown in Fig. 1-4. The present study complies 
with this idea. 


Jennings° and Goel and Berg’ 


have used the Ramberg- 
Osgood function (Fig. 1-5) to approximate the moment- 
curvature relationship and derived a very similar function 


to approximate the end moment-end rotation relationship. 
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The prime advantage of this approach is in the easy mathe- 
matical treatment when considering hysteresis loops. 
However, the negative portion of the end moment-end rotation 
relationship (due to axial force) can not be represented by 
this ~function, 

A number of different methods have been used for the 
nonlinear analysis of the complete frame. Oden® has dis- 
cussed the advantages and disadvantages of each presently 
available method. Rajasekaran and Murray” have classified 
these methods according to the mathematical technique 
involved and suggested the recommended method to be used 
for solving an individual problem according to the physical 
nature. The method described in Chapter 3 is an incremental 
loading method in principle, although it may not be seen 
clearly in the process of solving dynamic equations. 

The P-A effect has been investigated loki; Sasheokylekl, eAblets) 
and ieee on steel frames and by Majumdar, MacGregor and 


Adams? 


on coupled steel frame-shearwall structures. The 
analytical method used in these studies was to apply an 

additional lateral load in an attempt to produce the same 
column end moment as the actual case. It has been shown 
both theoretically and experimentally that the reduction 
in load carrying capacity is significant in both types of 


frames. In the present analysis, the P-A effect is con- 


sidered by introducing an equivalent rotational spring at 
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each member end; the new system is proposed to eliminate 
the iterative procedure. 

Naka, et ee have studied the effect of shear defor- 
mation of the joint panels and have indicated that the 
elastic response calculated by taking this effect into 
account could be as much as 30% greater than the elastic 
response for a frame with properly reinforced joints or 
than an elastic response ignoring the effect. Munse, Bell 
and Cherson?? have pointed out that the response could also 
be increased when beam to column connections are not 
perfectly rigid. In the present analysis, these secondary 
effects, together with the effect of shear deformation of 
a member, can also be taken into account in conjuntion with 
the previously mentioned rotational spring, although in an 


approximate manner. 
1-2-2 Characteristics of Dynamic Loads. 


The characteristics of blast waves have been investi- 
gated by the United States Department of Defence and other 
affiliated agencies and research institutes. Refs. 14 
through 20 provide useful information concernirg the 
magnitude of the blast loads which should be applied to a 
structure at a particular site. Brode?? and Néwmark?? have 


reviewed the studies in this field and have added new remarks. 


The blast loads applied to the example frames in this 
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dissertation have been determined by summarizing the above 
information as shown in Appendix E. 
Only a few records of the ground motion induced by 

strong earthquakes were available before the VoporeEce 

The strong motion accelerograph networks started recording 
ground motions in the U.S.A. and Japan in the late 1950's. 
The digitized data for recent earthquake motions have been 
published by the California Institute of wichielogy. the 


¥p and the Ministry of Transport of sapans>°, Jennings, 


SERAC 
Housner and Tsait/ proposed artificial ground motions to be 
used for the analysis of a structure. In spite of efforts 
made by many researchers, it is still impossible to predict 
the ground motion which a future earthquake might produce 
at eo particular buliding site. 
1-2-3 Inelastic Response of 

Steel Frame to Dynamic Load. 

The equations describing the response of a structure 
to an earthquake motion and to a blast load are very 
similar and hence the same numerical techniques can be used 
to achieve a solution in both cases. The Runge-Kutta's 
method modified by abou Milne's mernodred the linear 
acceleration qe and Newmark's me cnod ag are typical 
techniques used to solve the second order coupled differen- 


tial equations. Ra lecoran presented an excellent comparison 


¥d besuhat solsom Bavotp et io eb10 > 
ES stoves eid exoted efdelisvs exew ide Supri: | 
paibtoce: bodusse axxowsen dqasiporslesos Ho#som pnorte eT 
-@'O02@@£ otef oft ai risgst bas -A,2.0 sit at anottom Savory 
need saved anoktom sisupdsis9 tngosy 102 sd6B Hbesistipib sat 
er BS wbofondoet to sdustiantl sinzrotilse) sz yd berleitdsg 
:®paLanel a to sYogens1T to yrteinin eft bas *Soamae 
ad oF aenoitom bavorp letoitisia bsaegorg VS: ger bas tenevoH 
ejrotie lo stige nI .erujourte 5 to eiaeylens Sid tot Beas 
solbexg of oldiezogmi [Lise ak ti ,e1sdotssesr ynem a sbam 
souboug trpim easupdsiss stutut s doidw noitom bayorp edz 
“ .otjte paibitnod xaslvstsreqg 6 3s 
to seanogesh ottasfenrI e-S-IL 
-bsod simsanyd of smext Ieet2 

sivjourte & to sanogesz odd pnidiisesh enoistsupe sat : 

virev 2915 beol tasid s od Bas noitom sAsupdtiss as ot 

beev od as> asupindosts Isottsmun omse eda soned bas xelimie 

e'sjsuA-opnue siT .esesao ntod ni noituloe s svetros oF 

BS JLTtD ye ‘bedtthom bor em 

fsoigqys this "bor! sam 3 sien bas She ontem 1 nois sxeleo0s 
-191922 tb Pcpkcgablts 1Sbi0 bnoose ui evioe os bees eeupinidoss : 


aoa ktagnos AYO Ae ae) bednesoag * ‘aogatea anne: EA “7 


¥Yeentl sris fe vborigem 2 “ost tM 


among these methods. In the present study, the linear 
acceleration method is used because of its numerical 
stability. 

The early studies of the response of a structure in 
the inelastic range used single degree-of-freedom 


2a Oe 


systems and were gradually extended to more complex 


See In these studies, 


multidegree-of-freedom structures. 
the importance of ductility and hysteretic damping (enercy 
absorption) was emphasized; however, because of the highly 
idealized models, it was impossible to study various struc- 
tural effects more specifically. 

Jennings and Fue deli investigated the significance of 
gravity load in a study of single degree-of-freedom systems 
subjected to artificially generated ground accelerations. 

In this study, the important parameters were the height of 
the structure, the ratio of the earthquake strength to the 
yield level of the structure and the slope of the second 
branch of the bilinear end moment-end rotation relationship. 


Se xed developed a computer 


Clough, Benuska and Wilson 
program to analyze more complex structures. In these 
studies, a 3-bay, 20-story frame was analyzed by assuming a 
bilinear type of end norerteend rotation relationship. The 
structure was subjected to the N-S component of the El 


Centro 1940 earthquake. One of the important conclusions 


from this study was that plastic deformation will be 
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concentrated in the weaker members, thus sudden changes in 
stiffness should be avoided. 

Goel and Berg’ analyzed multistory, single bay 
structures (symmetric) allowing inelastic action in the 
girders (Ramberg-Osgood function) but not in the columns. 
It was shown that the inelastic action of the girders alone 
can be a potential source of energy dissipation in unbraced 
steel frames during a strong earthquake motion. Very simi- 
lar conclusion was also obtained from the study of Walpole 


and Shepherd. °° Goel? 


furnthersstudieds the Pas eitect 
during the earthquake motions using the same structural 
model. From this, it was concluded that the P-A effect on 
the inelastic response was insignificant. 

sun? also investigated the gravity load effect on 
dynamic stability using one or two degree-of-freedom systems 
with bracing members whose force-displacement relationship 
was assumed to be an elastic-plastic system of the slip 
type. In order to study the P-A effect more quantitatively, 
the equation describing the relationship between the yield 
or collapse of the system and the amount of input energy was 
proposed using the P-A effect parameter (defined as axial 
load divided by the product of stiffness and height). 

Lionberger and Weaver'+ showed that nonrigid beam to 


column connections can influence both the lateral trans- 


lation and the member end moments. The study was performed 
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on a 10-story, 2-bay symmetric frame subjected to an 
idealized blast load. 

The analytical procedure presented in this disserta- 
tion is an attempt to provide a tool to analyze complex 
frames taking many secondary effects into consideration 
within a feasible computational effort. 

Experimental verification of analytical results has 
been rather sparse. Nielsen’? reported a series of reson- 
ance tests of a nine-story steel frame building at the time 
when the frame works were completed. Using the test 
results, the method to evaluate the elements in the stiff- 
ness matrix and the coefficient of damping for each mode was 
introduced. Jennings, Matthiesen and Hoerner’> eared 
tests on a 22-story steel frame building. The main ob- 
jective was to determine first three coupled modes; i.e., 
the fundamental modes in two Gunnactued phases and the 
fundamental torsional mode, all coupled, whose natural 
periods are close together. Tests using simulated ground 
motions have recently become possible within a limited 
capacity. The results of such tests on reinforced concrete 
frames have been Cee aes ee 

Hoerner*” indicated that a rectangular building with 
small eccentricities and a smooth, uniform dispersion of 
columns could have nearly equal fundamental periods in the 


three directions of motion. A strong modal coupling, which 
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might include both rotational and beating effects, resulted 
in significant increases in the elastic response of such 
structures, 

ie? studied the inelastic response of space-frame 
structures. An example calculation for a simple space- 
frame (a rigid floor supported by four columns at corners) 
subjected to sinusoidal ground excitations in two perpendic- 
ular directions, indicated that mode coupling causes yield- 
ing at force levels lower than an analysis of uncoupled 
planer motion would indicate. Wen and Fariicomandy. 
presented the analysis of truss structures, where the 
masses were concentrated at each nodal point and plastic 
hinges (of finite length) were assumed to occur at membex 
ends. The importance of yielding condition (interaction 
relationship) was also emphasized. 

Toridis and piece introduced a finite element 
method to solve a three dimensional structure subjected to 
a dynamic load. The stresses can be checked segment wise 
for each step of the calculation thus enabling each segment 
to follow its moment-curvature relationship more closely 
than any other lumped models. However, in order to enjoy 
the advantage of this method, each segment must be reason- 
ably small and hence the number of degrees of freedom Ears) 


become very large for even a relatively simple frame. 
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The present study has made no attempt to examine these 


many facts of the problem. 


1-3 Scope of Dissertation. 


This dissertation is divided into three major parts. 
The first part (Chapters 2 and 3) describes an analytical 
procedure to analyze plane structures subjected to a dynamic 
disturbance. The results of the behavioral study are des- 
cribed in the second part (Chapter 4). The third part con- 
tains the recommended design procedure (Chapter 5). 

To obtain the member response for inclusion ina 
structural analysis, the material properties must be ideal- 
ized to reduce the computational effort. This is especially 
important when a dynamic analysis is to be performed. In 
the present study, the material is assumed to have a tri- 
linear type of stress-strain relationship which accounts for 
hysteresis under strain reversals. Based on this stress- 
strain relationship, moment-curvature relationships are 
derived for various cross-sections. These are not used in 
the normal fashion to obtain the overall member response; 
instead each member is modeled as an elastic bar having 
nonlinear rotational springs at either end. The character- 
istics of the springs are selected to reflect the behavior 
of the actual member, while the bars are assumed to remain 
elastic. The pertinent derivations are included in 


Chapter 2. 
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The frame to be analyzed then consists of an assemblage 
of elastic members connected by means of rotational springs 
to the joints. The standard slope deflection equations are 
modified in Chapter 3 to account for the properties of the 
springs. The dynamic equilibrium equations are then formu- 
lated for the frame. In order to check the assumptions 
made in the analysis, the equations are specialized to 
determine the response of a given frame to the application 
OL static. Loads. 

For the dynamic analysis, ener an earthquake motion 
or a blast loading may be considered. The differences 
between the two disturbances are briefly discussed in the 
beginning of Chapter 4, which is assigned for the behavioral 
study. The study is largely focused on the dynamic response 
of steel frames, with or without shearwalls, to blast load- 
ings. The selection of design blast loads for a particular 
structure is presented in Appendix E by summarizing the 
available information. The parameters studied ae listed 
in Sec. 1-1. Based on the results of the behavioral study, 
proposals are made in Chapter 5 for the design of structures 
subjected to blast loads. 

In Chapter 6, conclusions from the study are stated, 
The Appendices consist of supplementary explanations of the 
statements and equations made in the main text. The com- 
puter programs used to perform the behavioral study are also 


listed in this’ section. 
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DEFLECTION 


Hysteretic Curve Used in Previous Studies, 
(1) Elastic-Perfectly Plastic 
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DEFLECTION 


Hysteretic Curve Used in Previous Studies, 
(2) Elastic-Plastic with Negative Slope 
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DEFLECTION 


Hysteretic Curve Used in Previous Studies, 
(3) Bilinear Relationship 
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Fig. 1-4 Hysteretic Curve Used in Previous Studies, 
(4) Kato and Akiyama's Model 
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Chapter 2. 


MEMBER RESPONSE DURING STRUCTURAL VIBRATION 


2H lthintroduction? 

The objective of this chapter is to examine the inelastic 
response of members in a structure in an attempt to develop 
a simple model which is appropriate for use in a dynamic 
analysis. 

The first stage is to determine the stress-strain rela- 
tionship for the material of the member element. A trilinear 
type of stress-strain relationship is assumed. The moment- 
curvature-thrust relationships can then be calculated for 
various cross sections, and they are again approximated by 
trilinear relationships to reduce the subsequent computa- 
tional effort. The relationships between cross sectional 
area and moment of inertia, pliastic section modulus and 
moment of inertia, and the plastic moment capacity in the 
presence of axial force are initially formulated for a 
wide flange section. Thus all the necessary cross sectional 
properties are determined by specifying the nominal size, 
the moment of inertia and the amount of axial force. 

If, in an actual frame, the portion of a column or 
beam between the point of inflection and the connection 
was extracted, it would be equivalent to a cantilever 


column subjected to a transverse load applied at top of 
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the column and an axial thrust. The behavior of such a 
cantilever column is obtained by integrating the moment- 
curvature-thrust relationship. This behavior is simulated 
in this study by that of a model consisting of an elastic 
bar with a nonlinear rotational spring at the end and sub- 
jected to the transverse load only. The properties of the 
rotational spring are selected to reflect the inelastic 
behavior and strain reversals of the actual member, which 
occur during a severe motion of a frame. The thrust is 
eliminated in this model, and only the actual transverse 
load is applied to obtain the second order inelastic 
deflection. An iterative procedure is not required in this 
model for the inclusion of P-A effect in contrast with 


3739 
presently used approximate methods. 


2-2 Material Properties. 


In the present analysis, it is assumed that the stress- 
strain (o-e) relationship, in either tension or compression, 
has three distinct regions as shown in Fig. 2-1; i.e., the 
initial elastic region, OA, the plastic plateau, AB, and 
the strain-hardening region, BC. This representation is 
typical for a wide range of steels used for building 

349,50 
structures; 


The initialelastic relationship terminates at point A; 


i-e., the yield point (the yield stress is oy and the yield 
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strain is Ey) - The slope of this elastic region is the 
modulus of elasticity (Young's modulus), E. The plastic 
plateau extends to point B where strain-hardening starts 
(the strain at this stage is €s+). The point C corresponds 
to the stage at which the material attains its ultimate 
strength, .0,,..).The strain-hardening modulus, Est, is taken 
as the slope of the straight line which connects points B 
and 4.5 

By assuming that the amount of plastic flow is zero 
or that the strain-hardening modulus is zero, a bilinear 
stress-strain relationship or an elastic-perfectly plastic 
stress-strain relationship can be represented, respectively. 

Under conditions producing strain reversal, the stress- 
strain relationship of any element will remain elastic 
until the element is deformed beyond the yield point, Oy- 
If an element is deformed beyond this limit, say to point D 
in Fig. 2-2, and then subjected to strain reversal, it is 
assumed that the unloading will take place along the line 
DE, which has a slope equal to that of the initial branch, 
OA. If the reversal continues, the stress-strain relation- 
ship is obtained by extending the line DE to the yield 
point E77 where §=) oy: Thereafter the stress-strain 
relationship will follow the curve FGH, which is symmetric 


to the curve ABC about, the midpoint of OE (Fig. 2-2).. 
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If the element is reloaded between points D and F, the 
stress-strain relationship is assumed to retrace the line 
DF to point D, then returns to the initial relationship on 
branch DC. If reloading takes place beyond point F, say 
point I in the same figure, the material is assumed to have 
tne Lnwtial’ elasticarrqidity, -ES* up? toPpointy Disewhere the 
stress is equal to that at point D. The stress-strain 
relationship will then follow the curve D'C', obtained by 

a parallel=shitt of thecurve’Dc. 

For subsequent loadings, it is assumed that the 
material will behave in a similar fashion. The usable limit 
of the material is assumed to be reached when the unused 
strain-hardening portion of the initial curve (in the above 
Sxalipleres thes porlcronsDCeines thesposi tive direction, OL. Che 
portion IH in the negative direction) is exhausted. (If 
het eee ye tol soeCObresponds: tO, tnesstagematawhiCch thces tress 
reaches the ultimate value, Come) 

This method of tracing hysteresis loops, previously 
adopted by Kato and Akiyama, produces a reasonable approxi- 
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mation to the actual behavior except that the Bauschinger 


effect is neglected. 
2-3 Geometrical Characteristics of Wide Flange Sections. 


To simplify the development of the moment-curvature- 
thrust relationship, it is first necessary to determine the 


relationship between the cross sectional area, A, and the 
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moment of inertia, I; the plastic section modulus, Z, and 
the moment of inertia, I; and the axial thrust, P, and the 
reduced plastic moment capacity, Mpc, for a variety of 
cross sectional shapes. 

In this section, these relationships are determined 
for standard wide flange sections, since they are used 
extensively in the behavioral study in Chapter 4. 

2-3-1 Relationship Between Cross 
Sectional Area and Moment of Inertia. 

The relationship between the cross sectional area, A, 
and the moment of inertia, I, was examined for standard 
wide flange Bec wien cas A similar study has been done by 
Nakamura and title? 

Figs. 2-3 and 2-4 plot the relationships between these 
properties for each series of wide flange shapes. The 
equations describing the regression lines (calculated 


between log A and log I) for each group are: 
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(2—1) 
contd 


The slopes of these lines have a mean value of 0.87. 


If these lines are adjusted to maintain the best fit while 


holding the slope at 0.87, 
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This set of equations 


where d represents the nominal depth in inches. 


may be expressed by: 
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(2-2) 
Contd 


(2-3) 


The lines 


shown in Figs. 2-3 and 2-4 are those given by Eq. 2-3. 


2-3-2 Relationship Between Plastic 
Modulus and Moment of Inertia. 


The correlation between the plastic section modulus, 


Z, and the moment of inertia, 


of Figs. 2-5 and 2-6. 
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is shown by the plots 


The equations for the regression lines 


for each series of wide flange sections are found to be: 
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Proceeding as before, the equations can be approximated 


by the formula: 
Z=—— I : (2=5) 


The lines shown in Figs. 2-5 and 2-6 are those given 
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2-3 See Last 2 CeMOmentlcapacd Ly 

in the Presence of Axial Force. 

The plastic moment capacity, Mpc, under an axial force, 
P, must be determined for various cross sectional configura- 
ei ones Fig. 2-7 shows the interaction curves for strong 
axis bending of wide flange sections, using the nondimension- 


alized parameters, Mpc/Mp and P/Py. The quantities, Mp and 
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and Py are the full plastic moment capacity and the yield 


axial load, respectively; i.e., 


and 


Curves A and B in this figure indicate the upper and 
lower envelopes of interaction curves among the standard 
wide flange sections, respectively. Based on this observa- 


tion, the following relationships are used in the present 


study. 
Fore~lh> Fy 2 7 
a = 1.2 (1-5) (2-8) 
anaecor 5 > = Oe 
poe ETlSE ee tee a (2-9) 
P MY 


which 1S indicated by curve C in Fig. 2-7. 

This relationship is almost identical to the one 
recommended by the ASCE>° Lor Eey greater than one third, 
but the present relationship gives a slightly better approx- 
imation to the actual results when P/Py is less than one 


third: 
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2.4 Moment-Curvature-Thrust Relationship. 


Assuming that a cross section which is plane before 
deformation will remain plane during the loading process, a 
theoretical moment-curvature-thrust relationship for a given 
cross section may be determined either for the elastic- 


57,58 or for the 


Delta ae 


perfectly plastic stress-strain relationship 
trilinear stress-strain relationship of Fig. 
2-4-1 Empirical Moment- 

Curvature-Thrust Relationship. 

Using the method given in Ref. 3, empirical moment- 
curvature-thrust relationships have been generated for the 
present study. The method described below is applicable to 
wide flange sections bent about their strong axes and having 
a stress-strain relationship similar to that shown in 
Fig. 2-1. The effect of residual stresses is ignored, 

The moment-curvature relationship in the absence of 
axial thrust is first calculated and is approximated by a 
trilinear relationship such as curve A in Fig. 2-8. Moment 
iseproportionadly to,curvaturey up to point a... The moment at 
this point is the full plastic moment, Mp, defined by 


Eq. 2-6. The corresponding curvature, Dor is given by 
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cross section, or the slope of the line oa; i.e., letting I 


be the moment of inertia, 
Kpc= HI s (2-11) 


It is assumed that plastic flow starts at point a and ends 
at point b where some rigidity is recovered due to strain- 
hardening. The curvature at point b is Sp, where s is the 
ratio of the strain at the onset of strain-hardening to the 


VieLonstcalne (Fld. 2-1) sen, 


After reaching point b, the moment increases at a rate of 
EstI per unit of curvature, until the ultimate moment, 


M, (point e), is reached. My is given. by: 
Ney 2 Wee « (2-13) 


Curve B in Fig. 2-8 represents the response of a cross 
section subjected to a constant axial load, P, as well as a 
bending moment, M, for s 2 3 (which is typical for mild 
Steed Bele. A trilinear moment-curvature relationship is also 
assumed for this case with the elastic stiffness the same as 
that for the pure bending case; i.e., K. The proportional 
limit (point a') is the reduced plastic moment capacity, 


Mpc, which is calculated using the method described in the 
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preceding section. The corresponding curvature, @pc, is 


given by 
Soc = Fw . (2-14) 


The length of the plastic plateau, a'b', is given by @st 


minus @Ypc, where 


Oye Ns Pe UATE GEOR eley (2-15) 
and 
Moc 
n by ian (2-16) 


It is assumed that the locus of point b' for various m 
(Oe ego eeLOLms eauparcdvoOlLasnavangeitsavertex otspoint, b 
and an axis of symmetry parallel to thé M- axis and inter- 
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point b', (Sst, Mpc), satisfy: 


a 2 (Pst-sBp) 7 


The flexural rigidity after point b' for Mpc/Mp = 0 (pure 
compression) is twice that for Mpc/Mp = 1 (pure bending). 
(See Sec. 2-4-2 for the rationale for this statement.) The 
rigidity for an arbitrary value of m = Mpc/Mp, which is 


represented by Kst, is obtained by interpolation as: 


Kst = (2-m)EstI . (2-18) 
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The increase in moment between point b' and the ultimate 
condition (point c') is equal to that for the pure bending 
case, regardless of the value of m. The ultimate moment, 


Muc, under this axial thrust is, therefore, 


Muc = Mpc + My - M (2-19) 


Pp 


If the quantity s is between 1 and 3 (which is possible 
for high strength steel), the locus of point b' in the above 
procedure is modified for m less than ae + 2s - fig 


In this case, @st is given by: 
st = [m+ 0.5(s-1)16, . (2-20) 


The moment-curvature-thrust relationship obtained in 
this manner is compared with the exact ee cr sbey (ouikei, flats ie 
The stress-strain relationship used in this calculation was 
a trilinear type such as that shown in Fig. 2-1; the perti- 
nent data are shown in Fig. 2-9. The cross sectional con- 
figuration is also shown in the inset to the figure. When 
using Eqs. 2-3 and 2-5; d = 6 and I = 57.1 were input. The 
relationships calculated using the present method are shown 
by broken lines while the solid lines represent rigorous 


relationships. 
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Some of the quantities used in the formulae above may 


be explained briefly by considering a wide flange section 


represented by the model shown in Fig. 


AlI*or thse 


cross sectional area is concentrated in two flanges, each 


having an area A/2, and placed a distance, d, apart. 


Figs. 2-10(b) and (d) show the strain distributions for 


various loading conditions. 
point a in Fig. 2-8; ti..e.% the attainment of the full 


plastic moment capacity under pure bending. 


Diagram l 


corresponds to 


corresponds to point b in the same figure, the onset of 


strain hardening. 


Dy 


and 
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The corresponding curvatures, %; and 
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respectively, which provide the rationale for Eq. 2-10. 
Diagram 3 shows the strain distribution for a section 
yielded under pure compression; i.e., the case when 

Prey = is, Ofori OO Sit this section is subjected to 
additional bending, plastic flow takes place without the 
development of resisting moments until the strain condition 
indicated by diagram 4 is reached. The curvature at this 


stage, @, , is 


oo “St_5—Y 


which can also be obtained from Eq. 2-15 by letting m= 0. 
Foreanearbitrary value Of im. the curvature mat the onset. or 
strain-hardening is assumed to have a locus which is a 
parabola connecting this point and point b as described 
previously. 

Fig. 2-10(c) shows the equilibrium of internal forces 
when the cross section is deformed into the strain-hardening 
range for the pure bending case and corresponds to the 
strain distribution of diagram 5  . The bending moment is 


increased from that at the onset of strain-hardening by an 


aadw e260 oils Wosbee oe cael 

ot Bosostdie Bi nolszee ai it ol c 

edt tuodtiw soslg 2oAs+ work co 
noisttbdaoo niszte odd fisau esnemom pnitei 
side t6 sintevivo silt beret ai >} max 


= ,& . ied ‘ 


[= 
y? — 7 e408 
- ee i 
1& a2 a . 
| > Pa 
(25~S) “ge SE | 


.0 = m poitsstel yd @L-S$ .pa mox2 benissdo sd oels aso dotdw 
to teeno sis ts extsviuo oft ,m to evlsy yrsitidus ms 10% 
6 ei ddiriw evool s ovsi o3 Bomuers et oninebuad-nisite - 
beditoesb e&6 d tniog bas tntog eidt paisoennos slods1sq 
\fevoiverq i 
ee xxot fanteiai to my kad Btls edt aworle (9)0L~S ptt | *% 7 
painebrsd-ninwte edd otni bomro%eb et moktoes weows edt modw 
eft ot abnogestx0o bas seso pakbmed sxuq ot 10% epasz : 
ai tnemom pathned efT . © napa bh 2o notiudinselb seaaagtnlt 
m6 t cancion m6 SE OF meet eh 


34 


amount: 


6M = Se*Est + Fd, (2-24) 


while the increase in curvature is: 
Smee (ges) 
Therefore the slope of the moment-curvature relationship in 


the strain-hardening range is: 


BM d6e°Est*A/2ed 
6B. 9 (6e/(d/2) 


Est °A/2+(d/2) 2 +2 


Estl (2-26) 


as shown in Fig. 2-8. On the other hand, starting from the 
strain condition shown in diagram 4 (for the case P/Py = 
1.0), in order to increase the moment by the amount given 

by Eq. 2-24, the equilibrium of internal forces must be that 
shown in Fig. 2-10(e), which corresponds to the strain dis- 
tribution of diagram 6 in Fig. 2-10(d). The increase in 
the compressive force in the top flange is equal to the 
decrease in force in the bottom flange, thus if the decrease 


in strain in the bottom flange is éce', 


SerEst*A/2 = §c'E-A/2 


Sou = ae oe ee (2-27) 
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Since the value, d¢€', is small compared with Se, the change 
in curvature to increase the moment by the amount given by 


Eq. 2-24 is approximately 


Sg = S : (2-29) 


Therefore the slope in this case is: 


6M _ 6e*Est+A/2+d 
5B d6e/d 


Eq. 2-18 is derived by interpolating the values given by 
Eqs. 2-26 and 2-29 for an arbitrary value of m. Some of 
these quantities are explained in the derivation of the 
rigorous solution given in Ref. 3. 

2-5 Use of Rotational Spring to Simulate 

Member Inelastic Action and P-A Effect. 

In accordance with the scope given in the beginning of 
this chapter, the behavior of a cantilever column, subjected 
to a transverse load and an axial load, is examined. The 
actual behavior of this column, which is obtained using the 
moment-curvature-thrust relationships derived in the pre- 
ceding sections, is simulated by the response of an elastic 
bar having a nonlinear rotational spring at the lower end. 


The bar is subjected to the same transverse load but is not 
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subjected to an axial load. The objective of employing a 
rotational spring is to simplify the treatment of inelastic 
action with strain reversals and to include the P-A effect. 
(In Sec. 3-3, the function of this rotational spring is 


expanded to include other secondary effects.) 
2-5-1 Analysis of Cantilever Column. 


If a cantilever column is subjected to a constant 
axial load, P, and a varying transverse load, Q, as shown 
in Fig. 2-11, the column will behave elastically, until the 


moment at the lower end, Moy given by: 


Mons OL ah ePA (2-30) 


reaches the reduced plastic moment capacity, Mpc. In this 
expression, L is the column length and A is the deflection 
at the top of the column. 

The moment-curvature relationship for the column under 
the given axial load is assumed to be that shown in Fig. 2-12. 
This relationship may be obtained by the approximate method 
explained in the previous section if the column has a wide 
flange section. For other types of cross sections (or also 
for a wide flange section) , moment-curvature-thrust relation- 
ships may be obtained by employing other reasonable 


3,56,59,60 


methods or by modifying the pertinent equations 


above to fit the individual case. 
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The deflection at the top of the column, A, is: 


} zB 
jes a : A Liute ih (2~31) 
(uL) 
UM 
for Qo < ae (2-32) 


implying that the column behaves elastically. In the above 


expressions, 


WE 2 aARA Roe (2-33) 


If the column is forced to deflect beyond this limit, 
the inelastic region spreads from the lower end of the 
column, resulting in an increased end moment because of 
strain-hardening in this region, in accordance with the 
relationship shown in Fig. 2-12. The deflection, A, in this 


case is expressed as 
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for the value of Q such that the inelastic region increases 


in length. In the above equations: 
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v ave, (2-37) 


Li = the length of the column which behaves 
elastically, and 


Ly = the length of the column which has 
strain hardened, 


as shown in Fig. 2-11. Obviously, 
Mg celeb tk ines (2-38) 


Further, Mj represents the intercept on the moment axis 
shown in the moment curvature relationship of Fig. 2-12. In 
the inelastic range, the transverse load, Q, may decrease, 
particularly if the axial load, P, or the column length, L, 
is relatively high or the stiffness in the strain hardening 
range Kst, iS comparatively small. 

Since the length of the inelastic zone, Lz, is dependent 
on the value of the transverse load, Q, or vice versa, the 
following relation between Q and Ly must be introduced in 


order to determine the Q-A relationship in this range. 


cosvl2 


Q WpcFanuLll 


- Mivsinvl2 (2-39) 


Once then valuel or Lowbas been selected, Q is calculated 
using the above equation, and the corresponding A is obtained 
fromsEqs., 2-34, 2-35 ,and.2-36. 

Similar load deflection relationships must be computed 


for special cases: when the axial load, P, is zero; when the 
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stiffness in the strain hardening range is zero (i.e., the 
elastic-perfectly plastic case); and when the column is not 
fixed at the lower end but is connected to an elastic foun- 
dation. The Q-A relationships for these cases, as well as 
the derivation of the appropriate equations are given in 
Appendix A. 
2-5-2 Use of Equivalent Rotation Spring to 

Simulate the Actual Column Behavior. 

The behavior of the actual member discussed above can 
be approximated by considering the system shown in Fig. 2-13. 
The spring at the base of the column is forced through a 
rotation, 605, for a given transverse load, Q (corresponding 
LOpamiiomen te ine thesspring a e— Ol) eellemspGinguise selected 
so that the deflection at the top of the column is equal to 
that given by Eq. 2-31 or Eq. 2-34 even though the axial 
load is eliminated. The stiffness of the column is assumed 
to remain equal to the elastic stiffness, K, throughout the 
complete column length, regardless of the end moment at the 
base of the actual column. 

In order to satisfy the preceding conditions, the 
spring at the base of the column must produce a rotation, 
60s (which will be called a relaxation angle), that should 
satisfy: 


3 
<2 QL - 
We GEG 5 (2-40) 
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in which A is the value given by either Eq. 2-31 or Eq. 2-34 
depending upon the condition of the actual column. There- 
fore the member end moment, M,, and the relaxation angle, 


60,,/ are related by: 
ss (2-41) 


The end moment and the relaxation angle are both posi- 


tive in a clockwise sense, thus the relationship 
Mo = 2-OL (2-42) 


is used to obtain Eq. 2-41. 

Some typical moment-relaxation angle (M,-66@,) relation- 
ships site the rotational springs are shown in the upper 
portions of Fig. 2-14a to 2-14d by the full lines. In these 
relationships, the slope in the elastic range is calculated 
as below. From Eq. 2-31, A is given in terms of end moment 


(moment in the spring), M.,, by: 


MsL? | 3 (tanuL-uL) (2-43) 
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Thus the slope is: 


Ms | 3K 3 (4anpb-ph) _,)-1 | (2-45) 
605 (ut) ? 


And the limit of elastic behavior of this spring, (Ms-y,r 


68s-y), is given by: 


= drag eh L evil, . z 
Siu Toc Niareieirio MMe iene? Mon amram an eS sie ie! ie 
and 
as pL na 
ees = tanyL Mpc SEI, 


For the inelastic region, points on the Q-A relationship 
(given by Eq. 2-34) correspond to similar points on the 
Ms-58, curve through the relationships given by Eqs. 2-41 
and 2-42. The broken lines in the M,-60, curves represent 
the behavior in the absence of strain-hardening. The slopes 
of these lines, ¢, are given by: 


gee ee (2-48) 


(1 + PL2/3K) 


By selecting the M,- 595 relationship as shown above, 
the model shown in Fig. 2-13 produces a load-deflection 
(Q-A) curve exactly the same as that of the actual column 


SHOW. Nar Oiomee lila, 
2-5-3 Characteristics of M,-59, Curves. 


Fig. 2-14a shows the M,-58, relationship when the axial 


load, P, is zero. The section considered here is a W12X85. 
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The column length is 60 inches. The moment-curvature 
relationship used in this calculation is also shown in this 
figure. This was obtained by assuming a stress-strain 
relationship typical of G40.12 steel (oy amedyksi, o> 
1.3505, E = 29600 ksi, E/Est = 40, s = 10). In this case, 
66, is zero until Mg reaches the plastic moment capacity of 
the member, leye) Mp. If strain-hardening occurs, the 
spring moment is increased until it reaches the ultimate 
moment, Myc = My, with a corresponding increase in the 
relaxation angle, o0G% 

theseffectsofsaxial »loadvon the*Mo-§ep%relationship is 
shown in Figs. 2-14a, 2-14b, and 2-14c, where the applied 
axial load is 0.0, 0.3Py, and 0.6Py raapeeeiveays Other 
properties are the same for comparison. With an increase 
in the axial load, the slope of the elastic branch of the 
curve is reduced and the yield moment of the spring, Ms-y, 
is decreased. For relatively high axial loads, the Mg-606>5 
relationships exhibit negative slopes in the inelastic 
range, although strain-hardening does provide an increased 
strength relative to the elastic-perfectly plastic case 
(Note the difference between the solid curves and the broken 
lines). The contribution of strain-hardening is relatively 
greater for columns subjected to higher axial loads. 

Figure 2-14d shows an M,-60g curve with the same axial 


load (0.3Py) as in Fig. 2-14b, but the column length is 
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increased by 50% (90 inches). The other parameters are the 
same in both cases. The comparison between these two curves 
indicates that the increase in column length has a small 
effect on the yield moment of the spring, Ms-y, although the 


inelastic curves are somewhat different. 
2-5-4 Consideration of Reversals of Load. 


The Me 66 relationship can account for reversals of 


Ss 
load by using a method analogous to that discussed in 

Sec. 2-1, used to account for strain reversals when consider- 
ing the stress-strain relationship of the material. 

For a symmetric column section, the initial Ms-6é6s5 
relationship is also symmetric about the origin as shown by 
curve B1-A]-O0-A}-By in Fig. 2-15(a). When the reversals of 
load are within the elastic range (between point Aj and 
point Ai), the M,-é0, relationship need not be modified. 

Once the moment has reached the yield moment, Ms-y or -Ms-y, 
and unloading occurs between A, and B, (for example, at 
point S}), the M,-66, curve must be changed to that shown 
by B,-S1-A}-B, in the same figure. In this figure, the 
dashed lines have slopes given by Eq. 2-48. The line S)-A, 
is assumed to be parallel to the line A,-Aj, where point A> 
' 


' ' 
is on the dashed line passing through point Ay Curve A.-B 


Cae 


is obtained by a translation of curve A}-B)- 
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i] 
If subsequent reversals of load are within line S,-A,, 


this curve need not be changed. 
If after reversals of load, however, the moment in the 


t 
opposite direction exceeds that corresponding to point Ay, 


and unloading is to take place at, for example, point So, 


the M,-60, curve must be modified to that shown as 
B,-S,-S,-B, in Fig. 2-15(b). Again the unloading stiffness 
corresponds to the initial loading stiffness. The point S5 
lies on the dashed line passing through point Sir with a 
slope given by Eq. 2-48. Curve S,-B, is again obtained by 

a translation of curve S,-B,- 

A similar process is repeated for subsequent reversals 
of load. Collapse is assumed to occur when the above 
procedure is no longer possible; that is, when the M,- 665 
curve in either direction is completely exhausted. 

This method of tracing the response of a member implies 
that the member strength may be increased under an increased 
number of reversals of load in the inelastic range. This 
phenomenon has been reported in several references.>/°1768 


The present method is based on the theoretical explanation 


by Kato and Akiyama.> 
2-6 Computer Program 


In this section, a brief explanation of the computer 


program developed to construct the Mg-66g relationships 
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for a wide flange section with the stress-strain curve 
shown in Fig. 2-1 will be presented. This section also 
serves as a summary of this chapter. 


The necessary input data for the program are as 


follows: 
(1) E : Modulus of elasticity, 
(2) Oy : Yield stress, 
(3) Ss : e€gt/ey as in Fig. 2-1, 
(4) Est/E : as in Fig. 2-1, 
(5) Ou/ oy Sea See tela eg. = 
(6) ad : Nominal size of wide flange section, 
(7) I : Moment of inertia of the section, 
(8) Ps) Axial = torce, sand 
(Oo) Slee: eCOLUMNm@ Leng ti. 


The first five parameters are necessary to describe the 
stress-strain relationship. The column section is described 
only by its nominal size and moment of inertia. The cross 
sectional area, A, is calculated using the relationship given 
DYBEGQ-e2-5.u Ihe sratiOvOolLoakia le load, by tOmchemyield load, 
Py, is then computed. The plastic section modulus, Z, is 
found from the relationship of Eq. 2-5. The moment-curvature 
relationship under pure bending corresponding to curve A in 
Fig. 2-8 is next computed. The reduced plastic moment 
Capacity, Mpc, under the axial load, P, is found from 
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value of Mpc is determined, the moment-curvature relationship 
for the given axial load is constructed according to the pro- 
cedure described in Sec. 2-3. 
Tnhespropertiecssotethesrolationale spring (M--od2 (relap 
tionship) are determined as expalined in Secs. 2-4-1 and 
2-42. {ithe resulting Ms-09, relationships are drawn by the 
CalComp Plotter (Model 770/663) as shown in Figs. 2-l4a 


to 2-14d. The computer program is listed in Appendix B. 
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Ciapcrer ws. 


FORMULATION OF EQUATIONS OF MOTION 


Beis, Introduction < 

In this chapter, an actual frame is represented by an 
analytical model which consists of elastic members, rigid 
bars and equivalent rotational springs, which account for 
the inelastic properties and the P-A effect, as described 
acChaptemi2ar Whekeunction of ~u@rotational spring issex-— 
panded to include the influence of semi-rigid connections, 
deformation of joint panels and shear deformation of 
members. 

Initorder etovisolvemMthe equations of motion, is) first 
necessary to evaluate the static load-deflection relation- 
ship. The standard slope deflection equations must be 
modified for a member with nonlinear rotational springs. 

It is only necessary to change some of the coefficients 

in the modified slope deflection equations, when the Ms-d6>. 
relationship of a rotational spring is changed from one 
stage tovanother. Because of this simplicity, the inelastic 
response with reversals of load is calculated efficiently. 
The static load-deflection relationships obtained from this 
method have been checked against the published test results. 
When the static load-deflection curve is known, the equa- 
trons eof Inotiton ccariteeadmilyiibe tsolveds Aidamear acceler- 


ation method is used to integrate the equations of motion. 
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3=290Analytical “Model? 
The frame to be analyzed is modeled as shown in 


Bug es-Veeiphne number ores torres -°N and the number of 


sr 
bays, "Ne peas wel Pras chewsvory herqnt=for™each Story and 

the bay width for each bay in the model correspond to those 
of the original frame. 

The stiffness of a member in the modeled frame is 
taken'Pto *be “equal “tothe elastic “stiffness of “the “corres=— 
ponding member in the actual frame and is assumed to be 
unchanged throughout the response regardless of the stress 
level. A rotational spring of the type explained in 
Chapter 2 is placed between each member and the correspond- 
Pig Sort =(or -a' "rigid stub) as "shown “in the figure’, “to 
account for the inelastic action of the member and the 
secondary effects. The procedures used to determine the 
properties of this spring will be discussed in the follow- 
ing section. If a shearwall is present, it is simulated by 
a column which has a bending stiffness and strength equiva- 
lent to those of the original shearwall and is attached to 
the adjacent beams through rugGvaes tives. sles StuD Lengen 
Simulates the wall width Stee eee This column is then 
treated in the usual manner. 

The bottom story columns are attached to the foundation 
by elastic rotational springs in an attempt to account for 


thet flexibility of "the foundation. The secondary effects 
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produced by axial shortening or elongation of the columns 
are ignored. Uniformly distributed loads may be applied 
EOethe Seamsealthougheathe possibility of forming a plastic 
zone within the span length of a member is not checked. 

The masses are assumed to be concentrated at each 
floor level and to translate in a horizontal direction only 
as shown graphically in Fig. 3-l. A mass concentrated at 
aniloor develnasedenpted byime,) infwhichatheasubseript i 
identifies the floor level. 

Damping forces: are eles bo be_pdevelopedaby tiene 
relative motion of adjacent Ponte. Thus the damping 
force at the i-th story is expressed as Cai(xgend 44), in 
whiehaict wepresents theldamping = coefficientjwhich»is con- 
stant throughout the motion within a story; and a andexi4+] 
represent the velocities relative to the ground at immediate 
upper and lower floors, respectively, with respect to this 
StOry. 

Each nodal point and member are numbered as shown in 
Fig. 3-2. Floors and stories are numbered from the top. 
Bays and columns are numbered from the left. The joint of 
the i-th floor (from the top) and the j-th column row 
(from the left) is called the (Nyaa aa) een a Giudditers 
The beam of the i-th floor and the j-th bay is called the 
{ (2N,+1) (i-1)+3}-th member and the column of the i+th story 


and the j-th column row is similarly called the 
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{ (2Np+1)i-(Np+1)+j}-th member. Thus a Np-bay, Ne-story 


frame consists of (Nptl)N, joints and (2Np)+1)N,g members. 
3-3 Equivalent Rotational Springs in Modeled Frame. 


Equivalent rotational springs are placed at the ends of 
each member.of.the, Erame. (Fig. 3-1) to. account for the 
influence of axial load and the inelastic behavior (includ- 
ing the strain-hardening effect) of the actual member. 

The properties of these rotational springs are deter- 
mined in the following steps. The axial load and the point 
of inflection are estimated for each member in the actual 
frame (Fig. 3-3). These values are then assumed to remain 
constant during the motion of the frame. Under these 
SOngitlOnS;etne POrtlon trom thespolnty Of eimtlLectiony to 
CheWsoOine. (tor instance, Chesportien a> in Fig. 3-3) would 
be equivalent to the system shown in Fig. 2-1ll. This canti- 
lever column is then simulated by the system shown in 
Fig. 2-13, in which the properties of the rotational spring 
is obtained in accordance with the method discussed in 
Sec. 2-5. It is the above-obtained rotational spring that 
is placed between the member and the corresponding joint 
enethesmodelsorerig.. 3— 1. 

In the actual frame, the positions of the points of 
inflection and the values of axial forces are not known 


beforehand, and moreover may change during the loading 
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processes. Consequently it is impossible to account exactly 
for these effects by the present method. Generally, how- 
ever, these values would not change drastically during the 
motion of a structure, especially for the interior members 
of regular frames. Reasonably small changes in the equivwa- 
lent cantilever column length, L in Fig. 2-11, (the length 
Exnom athe pointcofainflectionetogthenjointpna-bein *Rigse3-3) 
produce relatively small changes in the Ms,-6é6@, relationship 
asicdiscussedein Sec. «2-5-3. (Thus sthé:Me-6 6.6 erelationship 
is primarily a function of the axial load and the material 
and cross sectional properties. 

3-4 Influence of Semi-Rigid Connections, Deformation 

of Joint Panels, and Shear Deformation of Members. 

The M,-660, relationship obtained in the manner discussed 
in the preceding section (for example, curve A in Fig. 3-4) 
will be modified to include the influence of semi-rigid 
connections, deformation of joint panels, and shear deforma- 
tion of members. 

The connection of members at a joint may not be rigid; 
i.e., a relative rotation between ends of adjacent members 
will be observed, for example, in a bolted cspuakeoe as shown 
in Fig. 3-5. The relaxation angle is a function of the end 
moment and may be represented by curve B in Fig, 3-4. 


The shear deformation in a joint panel may sometimes 
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have a significant influence on the overall response of a 
frame .t2,/lone moment diagram shown in Fig. 3-6(a) can be: 
expected when a frame is subjected to lateral loads. The 
stress condition in a joint panel is shown in Fig. 3-6 (b) 
corresponding to the moment diagram of Fig. 3-6(a), and 
the deformed shape of the panel in Fig. 3-6(c). Curve C 
in Fig. 3-4 indicates the average end moment vs. change in 
angles between the ends of beams and columns. (In the case 
where combined vertical and lateral loads are to be con- 
Sidered, it would become difficult to relate the relaxation 
angle to the end moment.) 

Shear deformations of a member may also be taken into 
account, if desired. The deflection due to shear for the 


Member shown in Fig. 2-11 is given by (ref. Fig. 3-7): 


A = SSL, Gai) 
where G is the modulus of rigidity, A is the cross sectional 
area, and K is the shape factor.’ Therefore, the end 
moment, Ms = QL, and the ish Shh angle, 60, = A/L, are 
related by: 


_ GAL Ae 
Ms = eS cas 00, ° (3-2) 


This relationship is shown schematically by curve D in 
Bigtns-4% 
If the curves A through D are combined, the resulting 
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rotational spring at the end of the member has an M,~- 66, 
relationship which follows this curve, it is then possible 
to approximate all of these secondary effects together with 
the inelastic action of the member. 

The unloading of the member will be considered by 
applying the procedure described in Sec. 2-5-4 to the result- 


ant Mg-6@s curve. 
3-5 Stiffness Matrix for Frame. 


3-5-1 Slope Deflection Equations for Members with 
Rotational Springs and Rigid Stubs. 

The actual structure has been modeled according to the 
procedure described in the previous sections (Sec. 3-2 to 
3-4). In order to calculate the response of the frame, it 
is first necessary to modify the standard slope deflection 
equations to accommodate the presence of rotational springs 
at the member ends and, if required, the presence of rigid 
stubs which simulate the wall width effect. 

The member, a-c-d-b, shown in Fig. 3-8 is considered 
as a general example. The entire member length is denoted 
by L and the rigid stubs placed at the left and right ends 
have lengths of A, and jjL, respectively. Thus the length 


of the elastic portion of the member is })3L, where 
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and 


yO =) >= 0+ A3 >—O< 


A sway rotation, op (between the end a and the end b), is 
permitted for a column but not for a beam. A uniformly 
distributed load, w, may be applied to a beam over its 
entire length. Equivalent rotational springs are located 
at the ends of the rigid stubs at@points c and d. ‘The 
portion c-d is assumed to remain elastic regardless of the 
deflected shape of the member. 

The Mg-6@s relationship for the rotational spring for 
each member end has been determined by the method described 
in Secs. 3-3 and 3-4. These relationships are now approxi- 
mated by the trilinear relationships as shown in Fig. 3-9 
to simplify the calculations. Thus the additional angle 


change at point c, -§§@c, and the end moment, Mcg, are related 


De: 

Mca = %1(-56¢) + ®y (224) 
and similarly at point d: 

Mac = “2(-60g) + 89 (3-4) 


with appropriate values of %j, Bi, Cand 85 depending upon 
which branch of the moment-relaxation angle relationship is 
describing the present condition. 


The end moments, Mz, and Mpa, are calculated as: 
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(S— 13) 


(34) 


(315) 


(3-16) 
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} (3-22) 


where K = EI. (3-23) 
If the sway rotation, p, iS get equal to zero in the 
preceding equations, the behavior of a beam is simulated. 


If 


and 


are substituted, the equations simulate the action of a 
column. The derivation of Eqs. 3-5 and 3-6 is detailed in 
Appendix C. 

| It is noted that the inelastic behavior (in this case, 
the M,-68, relationships for the rotational springs deviate 
from the initial linear branch passing through the origin) 
is expressed by the same equations, by changing the co- 
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efficients Oy and By Or a. 


in Eqs. 3-5 and 3-6. 
3-5-2 Stiffness Matrix for the Frame. 


When the end moments for each member have been expressed 
by Eqs. 3-5 and 3-6, it is possible to formulate the moment 
equilibrium condition at each nodal point and the shear 


equilibrium equation for each story. In these equations, 
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the joint rotations and story shears are written in terms 
of the horizontal deflections at each floor level. 

Using the notation defined in Sec. 3-2, the number of 
unknowns is equal to the sum of the number of stories, Ng, 
and theenumberoof» joints; N,(Npt1); i.e., a total of 
Ng(Npt+2). The coefficient matrix, [R], is therefore 
Ns (Npt+2) * Ng(Npt+2) in size. Letting the vector {6} denote 
the unknowns (consisting of joint rotations and story 


shears), the equilibrium equations are expressed as: 
[RIN G32 ae By (3-24) 


where the vector {B} consists of fixed end moment terms and 
the sway rotation terms. By arranging the equilibrium 
equations in an appropriate order, the coefficient matrix 
[R] becomes a band matrix with a width of 2Np+3 and will 
have the diagonal elements dominant in most cases. Then, 
the LU decomposition of [R] by Gaussian elimination without 
pivoting technique can be employed without losing 

accuracy. ’°'/*rnus, by preparing a space for an array of 
Ng(Npt+2) * (2N,+3) for the matrix [R], Eq. 3-24 is solved 
LOLreanyecLohnt) handsside vector 1B}. sit, ammultiplier; sin 
the process of Gaussian elimination, grows greater than one, 
there is a possibility that accuracy is lost by one digit 
and if it grows greater than ten, the loss of accuracy 


could be 2 digits. Should it'be the case that the loss of 
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accuracy could be more than two digits in this process, 
the computer program is made to indicate this situation. 
This critical condition, however, has not happened through- 
out the behavioral study included in this study. 

The horizontal loads (or story shears) compatible with 
the assumed deflected shape used to obtain the vector {B} 
are determined by extracting the story shear terms from 
the solution {6}. If the vector {B} is computed by assum- 
ing the sway rotations are zero at every story, the story 
shears (the sum of the horizontal loads applied at floor 
levels above a particular story) required to restrain the 
frame in this position are calculated. This vector is 
denoted by ing}, which is a zero vector unless the uniformly 
distributed loads on the beams produce lateral sways. If 
the vector {B} is calculated by permitting a unit displace- 
ment only at the i-th floor level (from the top), the story 
shears required to maintain the other floor levels in the 
undeflected position can be calculated as fie? - Then, the 
i-th column of frame stiffness matrix, [G], is given by 
{n,}, which is: 


fila, =e) inghe-kin jee (3-25) 


Repeating the computation of in, } COCs ee Le CORN ey ache 
elements of the complete frame stiffness matrix are obtained. 


Thus the story shears {Q}, and the corresponding deflections 


vt 


,eagno1g akdd ak. ester ows neds 
.ookisutia ebdt etsotbri ot @bsm et mii: tastgnc ort 
-dpuoxrit bensqqeit ton esd ,teveworl ,nokdibnes Lsotsixo aldT 
_ybuse ebdt ni bsbulonk ybuse lesoiveried ads suo 

ddtw ofdtssamoo (eiserle yxote x0) ebsol Isunostzod oft 
{q@} szotnev, oft nisitdo ot bosu ogee bedoslzeb hemvees sit 
mort emres ussde y1ote oft entsosisxs yd bonimxeseb ets 
~musees. yd betuqmoo at {a} totgev oft 2 ota} notsuloe edd 
yiote sds ,ytote yteve 35 OTeS S16 enobts2ox yswe edd pat 
noolt je betiqas ebsol Isénosizxed eft Yo mus eit) axsede 
sft atsideost of bariuper (ytoJe asfupttxseq s evods elevel 
sit aotosv eid? .bedsiuolso sip nofdteog atdat ni omea? 
yiortotinw edt eeelay todpev OfrSs & at dotdw . ot yd besoneb 
tI .evewe {srets! sduborq emsed sf3 m0 ebeol botudizdeLb 
-ooslasib tiay s pattsimisg yd bossivolss at {4} zotosv edt 
yrosa sit , (got 6d mox2) Level zool2 dik ens 3a yino Jnem 
efit ni elovoel 1tcolt sedso edt aisinism ot botiupez exsedde 
ert ,nodT «1, 2m a8 pets luples 6d md moktiaog besooltebnu 
yd mevip et , fo) .xixztsm peenitisea ems1t to amuloo Ad-i 
:ek doidw (ym 

(28=£) , iol ts iomd | =, | Litt 


Tt 


eft »yM ot 1 = + 10% {50} 2 sottissuqmon acd enttseqen 
bean tssdo A “tazam (sagmtt ise emsii sioiqnon eft to atnemele 


snotsoett ob paibdaqeetx09 ant bas. ,{0) exsere yxote odd AEP 
ie i, 


78 


at each floor level, {x}, are related by: 
{OF =" [GIKix) = {€9}) (3-26) 


where the vector {Eg} is the initial deflection at each 
floor level produced by vertical loads alone applied to the 


beams, and is obtained by: 
Cae eT ATEN Peay a (3-27) 
0 Oe 


Bqteis=2beM savalidmi P ther oo. relatwonsiip for ‘every 
rotational spring in the frame remains elastic. If any 
of the rotational springs are forced into the inelastic 
branches of the M_-d6@5 per aes Gnena pee the stiffness matrix 
must be adjusted. Let the vector {&} be the deflections at 
each floor level and let bis BeeteE {n} be the story shears 
at the instant that changes are required in the stiffness 
matrix. Equilibrium equations, similar to Eq. 3-24, are 
constructed using new branches of the M,-60, relationships 


(substituting a new set of a, and By or a new set of Ol and 


1 
B5 in the modified slope deflection equations) at the perti- 
nent member ends. The new stiffness matrix, [G], is calcu- 
lated in exactly the same manner as before. The deflection 


at the floor levels, {x}, and the story shears, {Q}, are 


now related by: 
Ore Pee he ah Meee) Meomnnan ce (3-28) 


This procedure is repeated as required to obtain 
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the updated stiffness matrix and the corresponding relation- 


ship between the story shears and deflections. 
3-6 Static Responses. 


In order to check the adequacy of the static load- 
deflection relationships obtained from the present models, 
they have been compared with the published results of 


11,75 It has been con- 


experimentally obtained responses. 
cluded that the present procedure can simulate the actual 
behavior satisfactorily. | 

One example is given in Fig. 3-10. The frame analyzed 
by Yo pms © is shown in the inset. The ordinate represents 
the horizontal load at each floor, H, and the abscissa the 
Sway at the first floor (from the bottom in this case), A. 
The solid curve shows the test result and the broken line A 
the theoretical calculation by Yarimci. The result from 
the present calculation is shown by broken line B. 

When calculating the response by the present method, 
the concentrated loads on beams were replaced by the uni- 
formly distributed loads that were to produce the same 
fixed end moments. The M,-d0@, relationship for the equiva- 
lent rotational springs were calculated assuming the points 
of inflection at midpoint of each column. The axial loads 


on the columns were assumed as follows for the purpose of 
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calculating the M,-58, relationships. 
SLOPCLOLY. — (top) 2 OF P= 43 kips (per column) 
2NC, StOLy. Ont 2 Po — Gb ki pS 
Lst Story (bottom): © 4° 3P)= 89) kips 


Other secondary effects such as the shear deformations of 
members and joint panels were ignored. The M,-é@, relation- 
ships obtained in this manner are the same for the top and 
bottom ends of a column within a story. Axial loads were 
taken to be zero and the points of inflection were assumed 
at midspan when calculating the M,-é0, relationships for 
each beam end. The effect of strain-hardening was ignored 
in both this analysis and the original analysis. 

Thus it is seen that the present method can trace 
the actual behavior reasonably well, in spite of the fact 
that the assumptions made to determine the properties of 


rotational springs have been somewhat crude. 
3-7. Equations of,,Motion. 
3-7-] Formulation of Equations of Motion. 


If the masses, m are assumed to be concentrated at 


ae 
each floor level and damping is assumed to be developed by 
the relative motion of adjacent floors as stated in Sec. 3-2 


or as shown in Fig. 3-1, the equations of motion are formu- 


lated as outlined below. 
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Were x 


ie sch and Xs bei the "deflection," velocity? and 


acceleration, respectively, at the i-th floor relative to 
the ground and let vectors {x}, {x}, and {x} represent sets 
of such values from the top floor to the bottom floor at 
any instant during the motion. 

PRESrestoring Shearsatethe i-threstory, O;, is the i-th 
element of the vector {Q}, which is a function of {x} and 


is expressed in general by Eq. 3-28; i.e., 
CO ee eee Gee oe om) ucr een 


where the stiffness matrix, iG], and the vectors, {&} and 
{n},depend upon the behavioral history of the frame from 
the initiation of motion to the instant under consideration. 

If the acceleration of the ground motion is given by 
veil the acceleration at the i-th floor with respect to 
the absolute axis is x; + Yo: and thus the inertia force 
due to D'Alembert's principle is =m. (x; + Taba’ 

The evaluation of the damping effect is complex. 
However, it is simply assumed here that the damping force 
is proportional to the relative velocity of adjacent 
Ploota manana given by c,(X,-X, 14), where the damping 
coetriciene, Cir is taken as: 

2h; Gis 


Cc. = —— (S=29) 
bh Wy 


in which Gia is the i-th diagonal element of the initial 
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stiffness matrix [G] (which is expressed in terms of story 
shears), and Wy 1s the circular frequency in the first 
natural mode of the undamped frame; h; is) an arbitrary con- 
stant serving the same purpose as does the percentage of 
critical damping in the analysis of single degree-of-freedom 
systems. 

Since the applied loads (inertia forces) must be in 
equilibrium with the frame restoring forces and the forces 
developed by damping as shown in Fig. 3-11, the following 
conditions must be satisfied. 


Atetnewiirs G Story: 


aps se ae he Sait) ae eos (3-30) 
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Peels “F Yo = Q,({x}) + c, (x;-x, 4) (3-31) 


At the bottom story (the Ng-th story): 
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Sielt)” faenehany tay ible “erCSMaay monk: 


and the last term, ee is zero for i = Ns. CMA. and 


itl’ 


CSM; are given by: 


Pomel oe CMA ae ee CSM ac=— Mm 
it ak 1 
ALT Way 
LOL 1 =—"2 to Nn —. MA ee I oe 
Ss al eae 3 a 
j=1 
i (3-35) 
CSM. = Xm 
j=1 J 
-1 
Ng 2 Ns 
fOveaL = iN CMA =e ile Xe eee COM. = 84 em 


The equations of motion under a blast loading are 
obtained in a similar manner, if the loads are assumed to 
be concentrated at each floor level and to vary in propor- 


41 In the actual 


tion to one another during the blast. 
case, pressures act on all surfaces of the structure. 

Both the dynamic pressure and the overpressure have distri- 
butions which depend upon the characteristics of the blast, 
distance of the structure from the blast, the terrain sur- 
rounding the building and the shape of the Secure eae 
It is possible in many cases to approximate the ratio of 
the blast loads acting on each floor level. 


Tet the vector ir} denote this ratio. The blast load 


applied at the i-th floor is then expressed by Z(t)r,, 


ye ane 
ae. 


(BEE) 


bras (PO. sus £ rot o198 ak ‘Ete e 


m= 4a 0 AM 8 ie ees 


‘fat 
. «Aas yeeke 
ve xem ano: I-.4 ot S$ = & 10% | ; 
(@&-€) t “ | 
‘nm 3 = me el 
a a | 
i oed 
ali ” tn F - Hib K 
ae = yee t pee ron = Peed : gf = | 7: : 


ers pitbeol t¢s ld s robny noisom Yo enolssupe edit 
ot bomuees 216 ebsot aris ti .isnieem selimte s at berntstdo 
as mi ywusv of iin Level xoolt fpse 26 Detst2ae0n0o ad 
feujos sis al i jesld ed? putawb tefgons eno oF nolt 
stusoutte ong to estetnwe fis no Jos sesiveeotg 48859 
=~ixteakb ovad sipeserq1evo er} bas ameeerg oimenyb sit i408 2 
jasid edt #6 ebrseivetosisdo odd noqu bregsb doidw enolttud 
«ne nierted oft ,tenid oft moz? s1vtouxte sds to ennstarb 
ON VN oetounde etd to sqede oft brs pakbitud ons pnibavex 
to oLas1 sz stamixorggs ot agesp ynem ai eidireog ai tI 
.level xoolt nose no onijon absof sasid edt ¥, 
bsol sesfd eft .oitss eit otoneh {x} a ond tor aid - 


5 & 
hak ie yd boe2szaxe mort et to0lt ak ae 
- o 


84 


where Z(t) is a function of time and represents the blast 
load applied at the floor level where the value of re is 
equal to one. Evaluation of Z(t) will be explained 

in Appendix E. The external loads which are in eauilib- 
rium with the inner forces (restoring frame forces and the 
forces developed by the damping action) are the sum of the 
blast loads and the inertia forces; i.e., at the i-th 


rLOoK, -m;X; a Z(t)r,. Defining a vector {CR} such that 


EL 
CR, = Mie £ (3-36) 


£ODZ 2Y=CLPS2FSR 2 ay No, and replacing ayes) and CSM, in 
EQe 25 o4eby -2(t) land) "CRes respectively, Eq. 3-33) now 
represents the equations of motion under blast loading 


conditions. 
3-7-2 Numerical Integration. 


To solve the coupled second order differential equa- 
tions such as Eq. 3-33, a numerical integration method is 
employed. The linear acceleration meena is used in 
chisustudy. 

The acceleration at any loor is assumed to change 
linearly within the time interval, At; i.e., if the accel- 
eration at a time nAt (from the initiation of vibration; 

n is an integer) at the i-th floor is x, (n) and the accel- 


eration at time At later at that floor is x, (ntl), then 
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the derivative at time nAt, x. (n), is assumed to be: 


7 X,(n+1) - x, (n) 
x. (n) =, (353 7) 
Ne 
and the fourth (and higher degree) derivative of Xs vanishes. 
Therefore, assuming that x, (t) is differentiable for at 
least three times between nAt and (nt+l)At, Taylor's expan- 
sion is written as: 
Xe(1)) x.4Gn) 5 dc ay) 3 


At + Cats 
iy Ze aye 


x, (nt+1) = x, (n) + 


and by diriterentiating: 


x. (n) Xx. (n) 
At + 
ii a! 


nee (3-39) 


x, (n+1) = x, (n) - 


SUUStLUCUGING SEC. 63-5 / INnCO ECGs 95-56 and 3=597 x, (ntl) and 


x, (n+1) are, respectively, expressed as: 


_ ° Le 2 le 2 # 
x, (n+1) = x, (n) + x, (n) At + xx, (n) At + gx, (ntl) At (3-40) 
and 
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Eqs. 3-40 and 3-41 together with Eq. 3-33 determine the 
deflection, velocity and acceleration at each floor at every 
Lins tanceoiaticsMOctLOn. saLoL B vepssror tip yts doe of these values, 
however, an iterative procedure is required. The chart 


shown in Fig. 3-12 describes this procedure. 
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The computer program which is used to perform the 
dynamic analysis of a frame shown in Fig. 3-1, using the 


above method of numerical technique, is listed in Appendix D. 
3-7-3" Natural Pemiods of Vibration. 


It is sometimes necessary to know the smallest natural 
period of a frame to select a proper time interval for the 
numerical integration process. When the linear acceleration 
method is used to solve Eq. 3-33, the time step, At, in 
Eqs. 3-40 and 3-41 must be less than approximately one- 
tenth of the smallest natural period in order to obtain 
convergence. 

The natural periods are also used as reliable param- 
eters to classify the overall stiffness of frames. For 
this purpose, however, only the first two or three modes 
would be sufficient. 

In the computer program listed in Appendix D, the 
minimum natural period and the first three natural periods 
and their corresponding natural modes are calculated prior 
to the response calculation. The smallest and the largest 
natural periods are computed using Stodola's method 
(power iteration method). Knowing the first eigenvalue 
(largest natural period) Bd the corresponding eigenvector 
(mode), the second and the third eigenvalues and the corres- 
ponding eigenvectors are obtained successively using 
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(a) MOMENT DIAGRAM AROUND A JOINT 
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(b) STRESS CONDITION (c) DEFORMATION OF 
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Fig. 3-6 Shear Deformation of Joint Panel 


a. © ie 


i— CIN!) | 


ZA 


C 


IO VOITAMAOAZA (5) WOITIQMOD 2e3xTe Wd) 
JAVA TUIOL JAUAT THIOL A UI 
| 


| | i : 
| | J 
lonet Jntol Yo aokIeMAONSG xeeMe e-E an : 
ane Ph Viet 
; I La 4 


Big. 


S24 


Shear Deformation of Member 


23 


finan 


rd ria ee ee 


ty Re 


PCy 


3 i 


Typical Member 


94 


Fig. 3-9 
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Chapter 4. 


BEHAVIORAL STUDY 


A een Crouuc ton. 


After a brief discussion of the relationship between 
the response of a structure to an earthquake motion and to 
a blast load, the behavioral study included in this chapter 
is focused on the response of a steel frame to blast loads. 

PoeeEnemesoLethise portion Of ther study 1s to investi- 
gate the general pattern of response of various structures 
under different loading situations, so that the structure 
can be designed to respond to dynamic loads in a satis- 
factory manner. In keeping with this theme, the following 
factors were considered: 

1) The use of an approximate method to estimate the 
fundamental natural period. 

2) The effect of the shape of the pressure-time 
curves (due to blast loads) on the response of a structure. 

5) The relationship between the applied load and the 
base shear. 

4) The effect of variations in column stiffness on 
the overall response; the effect of beam stiffness on the 
overall response; and the response characteristics of shear- 


wall structures. 
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5) The relationship between the maximum story shear 
and the required strength. 

6) A comparison of overall behavior among various 
structures in search of an optimum design. 

The structures studied in this chapter are limited to 
10 stories in height and 4 bays in width. The effect of 
strain-hardening and the P-A effect are included in the 
analyses; however these effects are not evaluated specif- 
ically. Other secondary effects are ignored in the present 
behavioral study. 

4-2 Relationship Between 

Blast Loads and Earthquake Motions. 

The lateral loads that a structure may experience dur- 
ing its lifetime are, in general, of two different types. 
One type is the result of pressure applied to the exterior 
walls of the building. The pressure could be a dynamic 
pressure (wind pressure) or a combination of dynamic pres- 


: : 14,22 
sure and an overpressure induced by nuclear explosions, 


ae The magnitudes of the 


gas explosions?" or sonic booms. 
lateral loads caused by these pressures depend upon the area 
of the exterior walls, the type of cladding, the width and 
height of the frontal wall and the depth of the building. 


The duration of the loading for nuclear blasts, gas explo- 


sions or sonic booms is relatively short, however, the 
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intensity of the pressure could be very high in the immedi- 
ate neighborhood of an explosion site. 

The second type of lateral load is caused by the 
motion of the ground on which the building is situated. 
Earthquakes or underground explosions are sources of this 
motion. The lateral loads induced by the ground motion 
are inertia forces, and thus the magnitudes of these forces 
depend upon the distributions of mass and stiffness in the 
building and the intensity of ground acceleration. 

In general, lateral loads caused by nuclear blasts 
and those produced by earthquake motions may be compared 
as follows: 

sie The duration of the portion of high pressure of 
a blast load is usually shorter than the natural period in 
the first mode of most common highrise buildings. On the 
other hand, the ground motion due to an earthquake occurs 
over a period many times longer than the natural period of 
the building; the intensity varies during the motion and 
the most severe vibration would be of short duration. A 
blast load may be regarded as a single shock or impulse 
while an earthquake disturbance may be regarded as a series 
of shocks occurring successively. 

ane The distribution of lateral loads over the height 
Ofita inkl ding will not'be drastically different from the 


two types of loads, that is, the vector {CSM} in Eq. 3-35 
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and the vector {CR} in Eq. 3-36 are rather similar. 

Si 3 Because of these factors, structures which are 
well designed to resist blast loads are generally also 
suitable to resist earthquake motions, and vice versa, if 
the input energy in each case is approximately the same. 

4. In an earthquake, resonance could become a 
problem if peaks of loading are repeated with a frequency 
that is approximately equal to the natural frequency of 
vibration of the structure. This would not be the case 
for blast loading since PE cn rere application is usually 
completed within a short time and would not be repeated. 

ap The acceptability of structural damage could also 
be different for the two types of loadings since many 
political, financial and social judgements are differently 
involved. 

In the following sections of this chapter, the re— 
sponses of different types of steel frames to blast loads 
are presented. The method of determining the blast load on 
a structure is explained in Appendix E. A design proced- 


ure against blast loads is proposed in Chapter 5. 
4-3 Empirical Formula for the Fundamental Natural Period. 


The natural period in the fundamental mode is one of 
the most important structural parameters when a dynamic 


analysis is to be performed, and yet the existing 
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La okG to estimate this property are rather crude, 


formulae 
resulting in some cases in more than 100% error. 

The present study has suggested the necessity of 
having a more accurate formula to predict the fundamental 


natural period of a structure. The following empirical 


formula is proposed: 


(4-1) 


where Ty : the estimated fundamental natural period of 
a given frame (in seconds), 
T. : the value read from tne chart given in Fig. 4-la 
or 4-lb, depending upon the value of jy, 


Se ae Kp /Ka where K, is the average stiffness of 
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beams; i.e., 
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in which (72), is the stiffness of an individual 
beam, and K, is the average stiffness of 
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hthet heawiati osofsthenaverage: story. height. to ,a 


standard height of 12 feet (144"); i.e., 
H 
: 144 Ng (4-4) 


in which H is the overall height (in inches) of 
the structure, 

a : the ratio of the average stiffness of columns to 
a standard value of stiffness of .500 x ha 
Sip. in; 1 ee; 


be 2K./10° ] (4-5) 


B : the ratio of the average story mass per column, 
m, to a standard value of mass (70/a kip- sec*/in) 
adjusted by the number of bays; i.e., 


mg . (Ny + 0.4) 


s ae (4-6) 


B a 


~ 


in which g is the acceleration of gravity 
(=386 in/sec*), 


Ne : the number of stories, and 


Ny : the number of bays. 
This formula has been tested on many regular types of 
frames; the deviation from the rigorously calculated value 


is usually less than 5% as seen in Fig. 4-2. Example frames 


25 


plotted here include 5 frames used by Goel, 4 frames used 


by Blume ,°? 1 frame by Lionberger and Weaver, + 1 frame by 


Newmark and Rosenblueth/°® and 10 frames from the present 
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study. The frames tested ranged from 2 to 40 stories and 
tco Mitbayst 

The lapplication “of fthis *formulle “to'*a “structure with 
unusual framing schemes is explained in Appendix F, where 
some example calculations are also displayed. 

4-4 Correlation Between Input Blast 

Load and Structural Response. 

THeeplast Loads applied) tOpays _LUCtULes 1s, a function 
of the magnitude and height of the detonation, the location 
(distance from ground zero) and the type of the building. 
In this section, various types of blast loads are applied 
to an example structure and the responses are analyzed to 


find a correlation between input loads and responses. 
4-4] Example Blast Loads on a Structure. 


It is assumed that a 10-story building shown in Fis. 
4-3 is exposed to a nuclear blast (perpendicular to the 
frontal exterior wall). The building has a width and depth 
ofs100e@teet eCachwvand*+a* height of 9120) feet. Structurally, 
ita consists ofS bents in either direction. Exterior walls 
and windows are made strong enough to resist the pressure 
Causedit bysavpossiblesblasty butrdo notr contribute to the 
frame action. “It is assumed that the pressure is trans- 


mitted tolthe®firames*at Geach floor level and that each one 
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of five bents (whose dimensions are shown in Fig. 4-4) will 
carry the same amount of lateral load at every instant 
during a vibration. The relative ratio of the load applied 
at each floor level is simply assumed to be proportional to 
the tributary area as indicated in Fig. 4-4. This ratio 
corresponds to the vector {r} mentioned in Sec. 3-7-l. 

If a detonation, whose energy yield is 1 MT, TNT 
equivalent, takes place at 5,000 feet above the ground 
level and 42,000 feet away from the building, the blast 
load applied to a standard floor (where ro l in Fig. 4-4) 
of each frame is calculated as shown in Fig. 4-5. This 
CURnVelti Sag Uncbign,-cistime asjjexplarned jiuneSec,.- 67-1. 

The calculations used to obtain this curve are fully demon- 
strated in Appendix E. This blast load-time function, 
Z(t), will be referred to as ‘Blast Load Type A-105.2', 
hereafter. 

If the same building is exposed to the same detonation 
but at 29,000 feet away from G.Z., the same frame will now 
be" subjectedmto ethemblas t jloadieshown gungrhig:. ©4-6..9eThe «cal-— 
culation required to obtain this curve is very similar to 
the previous example. This blast load-time function will 
be referred to as 'Blast Load Type B-212.5', hereafter. 

A new case is the previous building with the 
windows which occupy 40% of the exterior surface) 


that are now assumed (partially open box-like structure). 
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Assuming the average distance from the center of a wall 
section to an open edge (window) of the wall is 7 feet, the 
blast load applied to each of the frames is now calculated 
as*shown* in Pag.”4=75" In ’this*= calculation, "the detonation 
is assumed to be the same as before but the building is 
located™at 157000*°teet* away from’G.Z. (Ground Zero)< “This 
load-time function will be referred to as 'Blast Load 
ype Go Or. 

In addition to these blast loads, three more types 
of blast loads are used for the response calculations for 
the purpose of comparison. They will be refered to as 
prast wodcr type ant U5e2) blasters bouc types bA-212.5.., and 
"Blast toad Type” CA-356"%. Therr-load=time functions? coin— 
Cacdeewrti= cie=maj;Or = POrtiIons Of CYDE"=A=L05.2, ctype B-212.5 
and type C-358 blast loads respectively, but are truncated at 


a shorter duration as shown in Figs. 4-8 through 4-10. 
€ 


4-4-2 Properties of Example Frame. 


The frame shown in Fig. 4-4 is assumed to have the 
structural properties as listed in Table 4-1 (FRAME#1]1AA). 
The stress-strain relationship assumed for this example is 
shown in Fig. 4-11. In this example, the values for both 
the strain-hardening modulus and the ultimate strength are 
deliberately taken rather lower than usual, since no attempt 


is made to evaluate the effect of strain-hardening 
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specifically in this chapter and it is not desirable to 
over estimate this effect. Based on this curve, the 

Mg-60, relationships are calculated using the program 
listed in Appendix B. For the purpose of this calculation, 
the axial load in each column within a story is assumed to 
be equal; the point of inflection is assumed at the midpoint 
of each member. Thus the Mo-68, relationships are the same 
for either end of a member within a story. The MEF oes 
relationships are shown in Figs. 4-l12a through 4-1l2c, for 
some examples. In these calculations, the effects of shear 
deformations of members and joint panels, and the effect of 
the connection flexibility are ignored. 

In addition to these static properties, some dynamic 
properties are evaluated. The damping coefficient, Cyr is 
calculated assuming hy = 00D Lerer COME. 9-29 JeebOrrcach 
story. (Most of the damping coefficients used’ in the 
exdilpie calculations 1 tiis) Chaptern Mave been, oblLarned 
assuming hy = 0.005 or 0.01.) Observations have indicated 
that the maximum damping force developed by assuming hy 2 
0,005 1suisual ly less” than 52° of the maximum’ resisitance 
due to frame action and that developed by assuming hy = 
0.01 less than 8%. The elastic, undamped natural period of 
FRAME#1AA was calculated to be 2.24 sec. when the P-A effect 


was ignored and 2.25 sec. when it was included. 
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4-4-3 Effect of Blast Load-Time 
Function on Elastic Response. 


The blast loads prepared in Sec. 4-4-1 were applied 
to the example frame shown in Sec. 4-4-2. Responses were 
calculated using the program listed in Appendix D. The 
Moo. relationships were represented by trilinear rela- 
tionships. 

themresponses ato blast. loads utype, B-2127°5, type BA- 
212.5 and type C-358 were inelastic. For these types of 
blast loads, the intensity was then reduced so that the 
maximum intensities were 130 kips, 130 kips and 200 kips 
respectively (in other words, the Z(t) values for these 
typeseor Plast loads: were multiplicdiby 130/212.5,, 1307 212.5 
and 200/358, respectively) and were called 'Blast Load Type 
B-130', 'Blast Load Type BA-130' and ‘Blast Load Type C-200' 
respectively. The responses to the blast loads of reduced 
intensities were elastic. 

The results of the response calculations are shown in 
Fig. 4-13. The maximum base eee developed due to frame 
AC ony Qn, is plotted against the total impulse, I, which 


is defined by: 
ps N 
I = | ble) she © 


Ss 
hy ates (4-7) 
0 i= 


1 2 
The ratios of the maximum base shear to the total impulse 


of the applied blast load for type AA-105.2, BA-130 or 
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CA-358 blast loads are similar (this ratio for blast load 
type AA is shown in the figure). 

The observation that these ratios for type A-105.2, 
B-130 and C-200 blast loads are smaller than those for other 
types indicates that the elastic response is significantly 
influenced by the initial, major portion of the blast load- 
time functions. For this reason, the modified total impulse, 


I*, for an input blast load is defined as: 


I* = | ee Ale) ele” pba Gly, (4-8) 
a i=l 
where 
dt 
sul + coset )) for = paatae>, 0 
f(t) = i = (4-9) 

Lo for t >" >= 

and Ty) is the fundamental natural period of the frame to 


which the blast load is being applied. The modified impulse 
ignores. the effect of the portion of load that is applied 
after one half of the fundamental period of the frame, and 
more emphasis is placed on initial portion of the loading. 
The correlation between the maximum base shear, Qn: and the 
modified total impulse, I*, is found to be much stronger 
than before as shown in Fig.4-14. The average ratio of 
maximum base shear to modified total impulse for FRAME 
#1AA is calculated to be 1.97, or 

OL BRAY) ae (4-10) 
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which is also shown in the figure. In fact, the strong 
correlation has also been found in other frames throughout 
the behavioral study. The same was true of the relation- 
ship between the deflection (either maximum roof deflection 
or maximum relative displacement) and the modified total 
impulse. As one example, the maximum roof deflection is 
plotted against the modified total impulse in Fig. 4-15. 
Thus the elastic response does not depend significantly 
on the shape of a blast load-time function, but depends 
strongly on the value of the modified total impulse; since 
the major portion of a blast load is within say, one quarter 
of the fundamental natural period of a frame. This is the 
case under most of the situations considered in this study. 
For this reason, the subsequent behavioral study has been 
performed against a limited number of blast load-time 
functions, although the intensity has been amplified or 
reduced jas in; the case of type B-212.5 and type B-130. 
(Hereafter, the alphabetic letter indicates the type of 
load-time function; the digits indicate the maximum inten- 
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4-4-4 Effect of Blast Load-Time 
Function on Inelastic Response. 


The effect that a different type of blast load might 
have on the inelastic response is examined in this section. 


The responses of FRAME#1AA to blast load type A and type AA, 
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with the intensity varied in several steps, so that varying 
degrees of inelastic response are observed, are shown (up 
to collapse) in Fig. 4-16. The collapse of a structure is 
defined as the point where any one of the M,-96. relation- 
ships of the equivalent rotational springs comes to the 
failure point; which siss defanediainm Sec. 2-5-4. 

The plot shows the relationship between maximum base 
shear and modified total impulse. The ratio of the maxi- 
mum base shear to the modified total impulse is similar to 
that in the elastic range, where the inelastic action is 
MLNOL On Latier moderatenw (Say, Up to point Xs i.e. , the 
response to the blast load type A-212.5 (I* = 325 kip+sec); 
or point Y; i.e., the response to blast load type AA-300 
(I* = 371 kip-+sec), in Fig. 4-16. The locations of member 
ends where the elastic limit was exceeded during the 
responses corresponding to points X and Y are shown in 
Figs. 4-17 and 4-18, respectively.) 

The maximum base shear is a little greater when the 
SLLUCtULe 1s Sun jJecCleds tOmDlastulLOdda type Aethanelo, LYDG 
AA with the same amount of modified total impulse, up to 
about these points; hereafter, however, the situation re- 
verses. The modified total impulse corresponding to col- 
lapse of the structure is almost the same regardless of 
the type of blast load. The base shears corresponding to 


collapse are also approximately the same in both cases. 
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The response of a structure thus may be described in 
terms of the modified total impulse, in the inelastic range. 
Thus the’ shape ofa blast load-time™ function is not’ an 
important factor. 

4-5 Relationship Between Modified Total 

Impulse and Maximum Base Shear. 

In the preceding section, it was shown that the ratio 
of the maximum base shear due to frame action, Qn7 to the 
modified total impulse of the blast load, I*, is constant 
for a frame up to the point of moderate inelastic response 
(say, up to point X or point Y in Fig. 4-16), regardless 
of the type of blast load. In this section, a closer inves- 
tigation of this ratio is performed. 

The responses of FRAME #1AA with damping coefficient, 
h = .001 or .01 for every story (in the previous example 
calculations, h was assumed to be .005) were calculated 
for several blast loads. The same degree of correlation 
was found between Q1, and I*; the average ratios of Q,/1* 
were 2.25 and 1.84 for hy = .001 and .01, respectively, in 
COMpDaLLSOUsWIUL a lo seer Or hj = .005. Thus it is shown that 
the degree of damping causes slight change in the ratio of 
Q, COs 

The average ratios of 0, to I* have been obtained for 
Many example frames, whose basic properties are listed in 


Tables 4-2 through 4-8. (Other properties are the same 
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unless otherwise noted or may be derived in the same manner 
as for FRAME#1AA. A frame is classified by a number fol- 
lowed by two letters. Those frames that have the same 
numbering have the same dimensions. The first letter indi- 
cates the type of column design and the second the type of 
beam design.) The ratios of Qn to I* for these frames are 
listed in Table 4-9 (natural periods listed here are deter- 
mined by rigorous calculations); and are also plotted 
against the fundamental natural period of the frame in 
Figs 4-191, 

The plot in Fig. 4-19 suggests that the ratio, Q./1* 
is inversely proportional to the fundamental natural period, 
Thy of the frame. Assuming that Qn: I* and T, have a rela- 


a 


tionship of the form 


or* 
Q = Sa ’ 
b Ty) 


(4-11) 


the quantity, 0, is calculated for each frame and listed 
in the last column of Table 4-9. The coefficient, 0, has 
a value between 4 and 5, where the variation is caused By 
the differences in the damping characteristics and in the 
type ‘of "sitructure. 

Eq. 4-11 may be used ade Sesame the maximum base shear 
(up to the range of moderate inelastic response) for a 


frame whose natural period is known (by either a rigorous 


Calculation or by the approximate method explained in 
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Sec. 4-3) against a given blast load. The value of I* is 
calculated by Eq. 4-8, if the blast load-time function and 
the natural period of a frame are known. However, it would 
be convenient to prepare a chart which gives the value of 
modified impulse for a given natural period. Such charts 
are shown for type A and type AA blast loads in Figs. 4-20 
and 4-21. The value in ordinate axis indicates the modi- 
‘fied impulse, i*, per story where C ieea lee torea bias load 
whose maximum intensity is equal to unity. The total modi- 
fied impulse, I*, is then given by: 


Ss 


* = 1 x = 
r ( =n r;) is tice (4-12) 


i 
where one pes is the maximum intensity of the blast load being 
considered. The value of p ranges from 4.0 to 5.0 and may 
be selected in accordance with the expected damping situa- 


tion and the type of structure. 
4-6 Difference in Response for Various Frame Designs. 


In this section, the discussion focuses on the differ- 
ences between the responses of frames having varying column 
stiffnesses and those having column stiffnesses which are 
relatively constant over the height of the building; and 
between the responses of frames with strong and stiff beams 
and those with weak and flexible beams. A brief discussion 


of shearwall structures is also included. 
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4-610 The “Effects of Variation: in °“Column Stiffness. 


The effect of variation in column stiffness on the fun- 
damental natural period is minor for the frames considered, 
as shown by the comparisons between FRAME#2AA and FRAME#2BA 
or between FRAME#2AB and FRAME#2BB. (The ratio of column 
stitiness at the bottom story to that at the top story is 
8.46 for FRAME#2AA and FRAME#2AB, while the corresponding 
ratio is 1.55 for FRAME#2BA and FRAME#2BB.) 

The responses of FRAME#2AA and FRAME#2BA subjected to 
various intensities of blast load type BA are compared in 
Fig. 4-22. As seen here, the maximum base shears developed 
are almost the same for the two frames in the elastic or 
moderately inelastic range. Initial yielding occurred at 
a maximum intensity of approximately 20 kips for FRAME#2AA 
and 40 kips for FRAME#2BA. 

The maximum base shear in FRAME#2AA increased in an 
almost linear manner up to the collapse point, as the 
applied blast load intensity was increased. On the other 
hand, the ratio of maximum base shear to the applied blast 
load intensity decreased substantially in Prencase of 
FRAME#2BA as yielding progressed through the frame. 

The blast load intensity corresponding to the collapse 
of FRAME#2BA is approximately 1.5 times that for FRAME#2AA. 


Locations where inelastic action occurred during the 
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response to type BA-45 blast load are shown in Fig. 4-23. 
The inelastic action is more concentrated for FRAME#2AA, 
thus leading to collapse at a relatively low intensity of 
blast load. Thus FRAME#2BA is considered to be superior 
to FRAME#2AA. 

Similar studies have shown that the desirable range 
of the ratio of column stiffness at the bottom story to 
thata@at,thertopestory psaapproximatelye2zsto Ssforsl0=story 
buildings and approximately 1 to 3 for 5-story buildings. 
Fopervnstancejnthis ratio forerRAMBslAAsist3e/inecinathis 
case, the ratio of the maximum resisting base shear to the 
blast load intensity gradually decreased as shown in Fig. 
4-16, indicating the gradual spread of inelastic action in 


the frame. 


4-6-2 The Effect of Beam Stiffness. 


FRAME#1BC contains beams having stiffnesses 3 to 4 
times those for the beams of FRAME#1BA. The other members 
are the same for the two frames. The response of these 
frames are compared in Fig. 4-24. 

As expected from the preceding studies, a much higher 
resisting base shear was recorded in FRAME#1BC than in 
FRAME#1BA, when subjected to the same intensity of blast 
load; since FRAME#1BC is stiffer than FRAME#1BA. In fact, 
the value of 9, as seen in Table 4-9, is also higher for 


FRAME#1BC than the other, which may indicate the inefficiency 
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(in this sense) of frames with higher beam stiffness. 

The maximum resisting base shear vs. input blast 
load intensity relationship for FRAME#1BC is almost linear 
up to collapse, while a gradual reduction is observed for 
FRAME#1BA at higher load initensities. It is normally true 
that a higher strength is attained by the use of stiffer 
members. However, by doing so, the force attracted to the 
frame, for the same blast load, increases as discussed in 
Sec. 4-5. It is often observed that the increase in force 
developed in the frame is greater than the increase in 
strength; thus a stiffer frame comes to collapse earlier 
than the more flexible frame. This fact is clearly seen in 
Fig. 4-24. 

Thus it is not desirable to make the beam stiffness 
high except when the deflections must be controlled. At 
the other extreme, if the beams are too flexible, the 
moments to be resisted by the column become excessive, and 
the overall resisting capacity is again lost. The responses 
of many frames with various beam stiffnesses were compared. 
The observation indicated that the desirable stiffness for 
beam members is slightly below the average column stiffness 
(say, 50% to 100% of the average column stiffness), with 


little variation along the height. 
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4-6-3 The Effect of Shearwalls on the Frame Response. 


The equation proposed to predict the fundamental 
natural period (Eq. 4-1) ne also found to be applicable 
to frames with shearwalls, although some parameters will 
need to be modified as explained in Appendix F. 

Assuming the relationship between the maximum resist- 
ing base shear and input blast load is also expressed by 
Eqee4el) jetnesquantity aioe hace peenucyaluated for, abouc. 10 
frames with shearwalls. As seen in two typical examples 
(FRAME#4AB and FRAME#4BB, whose properties are shown in 
Table 4-6), for such frames generally lies below the med- 
ian (which is about 4.4); as indicated in Table 4-9. 

Although the deflections of a structure can sometimes 
be controlled by using shearwalls, it should be noted again 
that the intensity of a blast load that the frame can with- 
stand does not increase proportionally as the strength 
provided in the frame increases; and that severe inelastic 
action could take place at beam ends which are attached to 
shearwalls. If shearwalls are located in an asymmetric 
Manner in a building, the torsional effect may become domi- 
nant, > When a frame with shearwalls is designed, these 
factors must be considered from both technical and econom- 


ical points of view. 
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4-7 Required Strength of Frame. 


Since the normal design for static loads is based on 
strength, it would be very convenient if the required 
strength of a frame against an assumed blast load could be 
determined. In this section, the relationship between the 
maximum resisting story shear at every story and the column 
strength provided is examined for a regular type of frame. 

The maximum story shears developed during the response 
of FRAME#1BA to type AA-250 blast load are shown in Fig. 
4-25. In this case, the frame exhibited moderate inelastic 
action (point X in Fig. 4-24). The shapes of the corres- 
ponding diagrams for other 10-story frames are similar over 
a wide range of frame configurations. That is, the average 
diagram of maximum story shears would indicate the ratio 
of a maximum story shear to the maximum base shear as about 
.9 at the seventh floor, .6 at the third floor, and between 
41 5.ande.cmat the firstea(top)) floor, as) shown by curve A in 
Fig.) 4-26. “erhe comresponding diagram for 5-story frames is 
also shown by curve B in the same figure. 

It has been shown in Sec. 4-5 that the maximum base 
shear can be predicted for an assumed blast load. MThere=- 
fore it is now possible to predict the maximum shear for 
every story for the assumed load. 


The correlation between the maximum story shears and 
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the required column strengths is best explained in the fol- 
lowing example calculation. FRAME#3AB (10-story, 3-bay 
frame) was designed against blast load type AA-105.2, 
allowing moderate inelastic action (the range indicated by 
point X or Y in Fig. 4-16). The example calculation is an 
attempt to determine if the assumed frame is adequate with- 
out performing a dynamic analysis. 

The fundamental natural period of this frame was cal- 
culated to be 1.24 sec. Assuming the vector, {r}, is the 
same as that shown in Fig. 4-4 (i.e., tr. = 9.5), the modi- 
fied total impulse, I*, is calculated, using the chart given 


in vig ..e4—2 ), .as.: 


* = 1 * 
re Z wi rr. 


105 2. kee Oe lea 


i} 


= 125. (kip*sec) 
Then, the expected base shear, QO" is given, assuming 


OP = 4,5, as: 


O[* 
0) = 
b Ty 
ade ORL 5 
a 124 
ay) CHEK ie, (kips) 


The maximum story shears divided by the number of columns 
per story (4 in this case) are now assumed as shown by 
curve A in Fig. 4-27. 


If the shears shown here develop simultaneously, the 
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moments in columns would be those shown by diagram (1) if 
the stiffness of beams are zero; or by diagram (2) if the 
beams are infinitely rigid and strong. In the actual frame, 
the moments developed in columns lie between these two dia- 
grams, depending upon the actual moment capacities of the 
beams. 

A part of the moment diagram for a frame in which the 
beams here reached their plastic moment capacities is shown 


insFig, 4-25. In this figure, the following symbols are 


used: 
My ; Moment at the bottom of upper column #1, 
m,° see MOMmMentaatetne stop Ofslowers cOlUMnieyT a, 
Me : Plastic moment capacity of beam #i, 
Mes : Average moment at the bottom of upper columns, 
and 
mee : Average moment at the top of lower columns. 


The latter two quantities are given by: 


Ny tl 
uc 1 uc 
M = ——— eM: (4-13) 
Np tl 
Wee oe —a z m;° (4-14) 
e b j=l 


Adding the equilibrium equations at each joint, the follow- 


ing equation is obtained: 
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N, +1 N, +1 N 

b bie Le 5 b 

x M. = ¥ M. cbt, each, M, = Q 
i=l i=l i=l 
OL, 
2N, 

uc tC b of 

Ma + Me ee Npt1 “p (4-15) 


where as is the average plastic moment capacity of the b2ams 
at this floor. This equation indicates that the difference 
between the moment at the bottom of the column immediately 
above a given beam and the moment at the top of the column 
immediately below the beam can not be greater than the 
amount shown in the right hand side of Eq. 4-15, on the av- 


erage. In the present case, N, = 3, therefore the differ- 


b 
ence in moments between two adjacent column ends is not 
more than 1.5 Mi on the average. 

Based on this consideration, the minimum required 
moment capacities for the columns are obtained as shown by 
diagram sjman Figi.w4-2 /..8 Starting trom «the top istory; if 
the difference between the moments at two adjacent column 
ends in diagram (2) is less than 1.5 aes diagram (3) is 
assumed to coincide with diagram (2); however, if the dif- 
ference is greater than 1.5 ae in diagram (2), then diagram 
(3) at a particular story is drawn by sliding diagram (2) 
in parallel. toward diagram (1), so that the difference be- 


tween the moment at the bottom of the upper column and the 


moment at the top of the column of this story becomes 
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Tale ey as seen in the 5th and the ,lower stories. 

The moment capacities provided by the columns are 
shown by diagram (4). Since the required strengths are 
within the provided capacities, it may be concluded that 
the frame would be adequate for this blast load. From the 
way diagram (3) was constructed, it may also be possible 
to predict that the inelastic action in the beams would 
take place at the 5th and the lower floors, 

In the derivation of Eq. 4-15, the beams were assumed 
to have reached their full plastic moment capacities, which 
might seem unconservative. However, as seen in Fig. 4-17 
or 4-18, many beam ends do reach their plastic moment capa- 
cities in the range of the expected response. On the other 
hand, the maximum story shears do not occur simultaneously 
in each story and therefore the approximate moment diagram 
is somewhat conservative. 

A dynamic analysis was performed to see how well a 
frame designed using the above procedure would resist the 
blast loads. The response to the given blast load was lo- 
cated at point X in the maximum base shear vs. the intensity 
of blast load relationship in Fig. 4-29. The maximum story 
shears recorded during the dynamic analysis are shown by 
curve B; these may be compared with the assumed values shown 
by curve A in Pig. 4-27. As expected, inelastic action was 


observed in the 5th and lower floor beams. 
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One more rather crude estimate of the required average 


strength of a column at the bottom story, Mor is given by: 


M, = QnL/ (N, +1) (4-16) 


where L is equal to 70% to 100% of the bottom story heicht. 
This equation is derived assuming that the moment diagram 

shown by diagram (3) in Fig. 4-27 is typical for a regular 
frame. This equation may be useful for the first estimate 


of the required member sizes. 
4-8 Comparison of Various Designs. 


When a structure is designed against any type of load- 
ing, it must develop sufficient strength to withstand the 
applied loads and in addition the deflections must be within 
the specified limits. Among many possible designs which 
eriety these two criteria, some effort is usually made to 
find the most economical frame. 

If a frame is designed for a static loading condition, 
adding more strength (which is usually accompanied by addi- 
tional stiffness) can be expected to reduce the deflections. 

On the other hand, when a frame is designed to resist 
a dynamic loading, an increase in the stiffness (and 
strength) of the members to reduce the deflections during 
the motion does not automatically mean that the intensity 
of dynamic loading which the frame can withstand is in- 


creased. In fact, as seen in the responses of FRAME#1BA 
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and FRAME#1BC (Fig. 4-24), by making a frame stiffer, the 
intensity of a blast load that the frame can withstand was 
decreased, although there was a slight decrease in the ob- 
served displacements. Thus the two design criteria often 
conflict with one another. 

The job of finding the most: economical frame involves 
many factors when a frame is designed to withstand a dynamic 
loading. The next example shows one comparison of two 
frames both designed against similar blast loads. The 
frames compared are FRAME#5AA and FRAME#5BB. FRAME#5AA 
possesses about 35% more static strength than FRAME#5BB, 
at the bottom story. The average column stiffness of 
FRAME#5AA is 1.15 times that of FRAME#5BB, and the average 
beam stiffness of the former frame is 2.90 times that of 
Ghetiveatter.e ane ¢total weight of matenilalgused inywthe 
structural members of FRAME#5AA is 1.28 times that used in 
FRAME#5BB. 

The maximum base shears are shown as functions of 
the intensity of applied loads (Blast Load Type AA) for 
both FRAME#5AA and FRAME#5BB in Fig. 4-30. The relation- 
ship between the intensity of applied blast load and the 
maximum relative displacement of any two adjacent floors 
are shown for the same frames in Fig. 4-31. 

When these two frames are compared, the intensity of 


blast load that each frame can withstand is approximately 
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the same (frames having stiffnesses between those of the 
two example frames had a reduced capacity to withstand 
blast loads); but the maximum relative displacement in 
FRAME#5BB is approximately twice that developed in 
FRAME#5AA subjected to the same intensity of blast load. 
Thus it may be said that FRAME#5AA is superior to FRAME#5BB. 
However, before making the final selection, the economical 
factors must be taken into consideration. 

Suppose the cost of the structural components of 
FRAME#5AA is SW and that the corresponding cost for 
FRAME#5BB is $X. For similar type of framings, the cost 
may be assumed to be proportional to the weight of material 
used for columns and beams, ris | W = 1.28X. Suppose also 
the total of the cost of cladding (including windows) , 
Partitioning and other non-structural elements; wand the 
cost of constructing and installing them is SY for 
FRAME#5AA, If this cost is ‘a' times the cost of structural 
components of the same frame, Y = aW. The corresponding 
cost for FRAME#5BB may be estimated equal to bY, where 
b > 1 if the deflection of FRAME#5BB is greater than the 
allowable limit set on the basis of the design of FRAME#5AA 
(because a new detail and careful installation are required 
to ensure enough deflection capacities for the windows, 
precast exterior walls and other elements in order to avoid 


dislodgement); otherwise b = l. 
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The total cost for FRAME#5AA, C is then calculated 


SAA’ 


as: 


Conn =srWehnY 


28 ea) x (4-17) 


The, corresponding cost for FRAMEF5BB, C is similarly 


5BB’ 


calculated as: 


el Oped 


© 
lI 


Seve 


(AL BS Sh east vey) Ce (4.18) 
The economy of two frames may be decided by comparing 


EQS. mel) and, 4-13, 8 lf, tor instance, a ——.70eand Db = 122 


are assumed, Conn and CoRR are calculated respectively as: 
Conn OM ectereni))) 2X 
= 2.18X, 
and 
Copp eG cee ab eh Oy TA aa De 


at AOE a 
Thus it is seen FRAME#5BB is more economical under these 
conditions. 

By designing claddings and non-structural elements so 
that they can follow a larger deflection, a more flexible 
frame may safely be designed with a reduction in cost. 
Further, if, as in the above discussion, the quantities '‘'a' 
and 'b’ are obtained as function of the type of frame, the 


frame stiffness (or the fundamental natural period), the 
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required maximum relative displacement and so on, it would 
be possible to obtain an optimum design for a given blast 


load by repeating comparisons similar to that shown here. 


4-9 Summary. 

The behavioral study included in this chapter was per- 
formed using the procedure developed in chapter 3. The 
study focussed on the dynamic behavior of steel frame sub- 
jected to various types of blast loads. The results of the 
study are summarized as follows. 

1) An empirical formula to predict the fundamental 


natural period was proposed as shown in Eq. 4-1; i.e., 
N 
= [SEOs 
See One 10 


in which the symbols are explained in Sec. 4-3. This 
formula has been tested on many frames ranging from 2 to 

40 stories and 1 to 4 bays, and resulted in close agreement 
with the period,.computed from a rigorous analysis. 

2) The shape of blast load-time function, Z(t), does 
not significantly affect the response either in the elastic 
range or in the inelastic range. The response is mainly 
influenced by the modified total impulse of the blast load, 


[* a woitehn 1s defined in Eq. 4-8; ive. 


| 


N 


S 
UE) SiC ati: | ir. 
0 i=l + 


[oe] 


a 7 ee 
OL 


~ 


Bloow 3t yao 08 bas : 


sasid nevip 6 xo} ipbesb inumdaqo ns el 
ered awode 4ertt oF thiimta edoetreanion: pmivesqex xd bsol 


2 


e-b 


. 
A‘ee y » &eesh <* 
-1eq eAw setqyed>s Bint mi Bebufont ybuta texotvarod edT 


eit .€ xetgsdo ni boqoleveb svvbso0rq os paies penscts 
-dyz smpx2 Leste to ro0tvsiied oimadyh of no pseeus0? ybute. 
eit to epivee: ext .ebsol jesid Yo eeqys exuotisy of beset. 
.ewollo t #5 besteemeen otek yeas 

(sinempbavt oft toibe1q ot slumxo? Isoiziqme aA . (f 


..9.i :f-b .p@ of nwode es besogetg esw hdtiegd Prerreart 
ar a\ = 
CL x HoT 4* 


elit .€-b .092@ mi Henisiqus srs elodmye ot doidw ak 


~ 


o4 $ mov? paipnst aemszt yasm no betees assed asd slumrot 
tnemegsps seolo ak botiuset brs ,ayed * o3 I bas eeltote Ob 
-areyiens auotopts 6 mot? betvqnos boireq oft dtiw * 

cach .(4)2 ,nokdomu? emts-baol Jenid to sqede oft © (S | 
sitesls sdt ai Yedseis sahdqes1 oft Jos tis yistnsoltinpie joa 
yioism at senoqesx sit .epnas citeslent ont at 10 9pnsx 
baot 4aafa odd 30 saliqmi Letod Boktibom oct yd Beonsu lank 


.o. (8-0 .pa ak bankteb el dotdw \*I 
2" 7 pd er 
Pes wren = | ri bi¢ ioe. | 


Se 
7 : 


’ 


bs 


where 
sit + cosee t) for 
dh 


Therefore a subsequent study was performed using a limited 
number of blast load-time functions. The frames used in 
Phessludy iad SF OL els tOLles anderangea trom. |) to, 4 sbays- 
Some frames had a shearwall. 

&) The maximum base shear developed, On: can be 


estimated by Eq. 4-ll; i.e., 


where P has a value between 4 and 5 with its median approx- 
imately 404.5) This: formula is) valid both in the elastic 
range and for moderate inelastic action. 

4) The variation in column stiffness along the height 
should be as small as practicable. The recommended value 
for the ratio of the column stiffness at the bottom story 
POBUI aia CLC mLODmSG LOLLY slLanGCSmr LOU e-Om oO GELOn—ocOry, 
Lranes end alstoms LOT five=Storyerrames: 

The average stiffness of beam members should be less 
(say, 50% to 100%) than the average stiffness of column 
members. 

Although the deflection of a structure can sometimes 


be controlled by stiffening the members or by introducing 
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shearwalls, it should be noted that the intensity of a 
blast load that the frame can withstand does not increase 
proportionally (sometimes, even decreases) as the strength 
provided in the frame increases. 

5) The maximum resisting shear for every story is 
distributed approximately as shown by curve A for ten- 
story frames, and by curve B for five-story frames; both 
im Fig. 4-26. 

Using this fact together with the relationship in 
moments between two adjacent column ends (refer to Eq. 4-15), 
it was shown, in Sec. 4-7, that a frame can be checked to 
ensure adequate strength against a given blast load. 

A crude estimate of required strength for the bottom 


story columns, M+ is gaven by Eq 4-16;i.e., 


Q 
ike nae 2 


Neel ea? 
b Ni, =p ab 


on the average, where L may be taken equal to 70% to 100% 
of the bottom story height. 

6) A structure must develop sufficient strength to 
withstand the applied loads and in addition the deflection 
must be*within) the specified Mimits.— When a frame is@sub-— 
jected to dynamic loads, the two design criteria often con- 
flict with one another, One comparison between two frames 
designed against the same type of blast loads is shown in 


Sec, 4-8. 
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Table 4-9 Response of various frames 
FRAME + oes = Atl Tope 
(story x bay) (Sec.) 1 b 
1AA 10 x 4 pigs .001 2ea5) | 5805 
1AA " " .005 Lacey) AUOe res 
1AA " " seal thos 2 eens 
1BA | " ee 5O8 : .005 2—6409| 4.15 
1BA " " .01 Pag) | Aaa 
1BB " os .01 3.50n | 445el 
1BC " 1.065 | .005 4.80 | 5.16 
| 1B¢c | " " | =01 430 | 4.58 
1BD " .784 | eO 6699 (esas 
2AA 10 x 2 2.388 | tril Woo 4eG0 
if 
2AB " 20986) 10501 1.50 | 4.49 
| 2BA " 2... 30.4 | RO 1.37@ | 4.31 
| 2BB | " 28931 | AOE TpeaAaeeaeon 
| 
} iy 
| 3AA 10 x93 Teoh | £005 aeTOn eS 209 
| 3AB | y 1.326 | .005 3.66 4.85 
4AB* 2 10 x 2 .994 nO AvUGee (i404 
4BB* 2 " 1.294 nou Sal4ee | 4 20 2 
5AA 5 x 3 2539 .05 by | ele Gye 
5BB " ie £05 5 Gal 4ece 
6AA 5 x 4 1165 .005 AS00| 4266 


*1 Same value is assumed throughout the stories. 


*2 Contains a shearwall. 
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Fig. 4-16 Maximum Base Shear vs. Modified 
Total Impulse for FRAME#1AA 
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Fig. 4-17 Location of Yielding in FRAME#1AA 
Subjected to Blast Load Type A-212.5 
(At Point X in Figure 4-16) 
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Location of Yielding in FRAME#1AA 
Subjected to Blast Load Type AA-300 
(At Point y in Figure 4-16) 
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Fig. 4-23 Location of Member End where Inelastic 
Action was Recorded for FRAME#2AA and 
FRAME#2BA (Blast Load Type BA-45) 
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Pig. &4=25 Maximum Story Shears for FRAME#1AA 
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Fig. 4-29 Blast Load Intensity (Type AA) vs. 
Maximum Base Shear for FRAME#3AB 
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Fig. 4-30 Blast Load Intensity (Type AA) vs. Maximum 
Base Shear for FRAME#5AA and FRAME#5BB 
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Fig. 4-31 Blast Load Intensity (Type AA) vs. 
Maximum Relative Displacement for 
FRAME#5AA and FRAME#5BB 
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Chapter 5. 


DESIGN PROCEDURE 


ye neerOaduCTION. 


Based on the knowledge obtained from the behavioral 
study, a design procedure for steel frames required to 
resist blast loads is proposed in this chapter. 

If this procedure is followed, a designer should be 
able to select a proper (if not optimum) set of members 
for columns and beams with relatively few steps. After 
the members are selected, the details should be designed 
carefully enough so that the ductility is not reduced by 
Drematurepiaterallor docal bucktingsorabyoconnectionitaill— 
ure. 

Special attention should be paid to irregular struc- 
tures as the present procedure may require modification 


and additional checks for these structures. 


5-2 Design Procedure, 


The procedure presented in this section attempts to 
assist in selecting member sizes for a frame subjected to 
a blast load. The frame determined by this procedure is 
expected to have a response characterized by moderate 
inelastic action with yielding occurring mainly in the 


beam members (the response as indicated by point X or Y 
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ner vgs i4 he, tontbyepointix LimiPrigued=24)e Pihetirame will 
have, in addition, a reserve capacity to withstand a 
blast load with an intensity at least twice that of the 
design blast load. 

The procedure may also be used for checking the ade- 
quacy of existing frames against possible blast loads. 
However, if the structural arrangement of the frame is 
very different from that recommended in Sec. 4-6, there is 
a possibility that the procedure is not applicable. It is 
advisable to carry out a detailed dynamic analysis for such 
a frame. 

The procedure is described in the next eight steps. 
These steps are also shown in the format of a flow chart 
dlagram@inekigies—-1% 

STEP 1: Determine the configuration of the building, 
the dimension of the frames and the type of exterior walls. 

The first step in a design is to determine the overall 
dimensions, number of stories and number of bays. It is 
also necessary to investigate if the finished buildirg 
would act as a closed box-like stucture or a partially 
open box-like structure when subjected to a blast load. 

STEP 2: Determine the average pressure-time function 
of the possible blast. Determine the vector {r} and the 
function Z(t) in the sense explained in Sec. 3-/-l. 


The magnitude of the detonation and the location of 
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the building must be specified. Then, the blast load func- 
tion;,© Z(t)os and’ the® vector, {r}, are calculated in accord- 
ance with the procedure shown in Appendix E. 

STEP 3: Estimate the fundamental natural period, Th 
of the structure. 

It should be noted that for the usual type of blast 
load, the more flexible the frame, the smaller is the 
required resistance of the frame members. Therefore, it is 
often better to select a flexible frame (i.e., a frame with 
a longer fundamental natural period) if the deflections due 
to static loads are within the allowable limits. 

STEP 4: Calculate the modified total impulse, I*, of 
the blast load for the frame with the assumed natural period. 

The modified total impulse, I*, is calculated using 
Eq. 4-8. If the chart showing the relationship between the 
modified impulse per standard floor, i*, and the fundamen- 
tal natural period (similar to that Shown Sinerigel4-20 or 
4-21) is available, I* can be calculated using Eq. 4-12. 

STEP 5: Estimate the maximum base shear, Qn 

The estimation of the maximum base shear, Qn7 is given 
by Eq. 4-11. When using this equation, the value of p 
between 4 and 5 may be selected depending upon the amount 
of damping expected and the type of frame. (The median for 


0 is approximately 4.4.) 
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SEP) 6: ») (For thestirst trial.only sj). Select sthe 
member sizes for the frame. 

This step is initiated by calculating the required 
strength at the bottom story using Eq. 4-16. The column 
sizes for the bottom stories are first selected, then for 
Ehelvorher Stories. im iturn pa he ratio wor scolunn statiness 
atechesboclOnmecslorvetomt hate atetnestopustorye cuOUulLd be 
approximately between 2 and 5 for ten-story frames or 
between 1 and 3 for five-story frames; and the average 
stiffness of the beam members should be slightly less 
(say, 1/2 to 1) than the average stiffness of column mem- 
bers, as discussed in Sec. 4-6. 

The natural period of the frame is then computed using 
thesempirical, formula; given by, Eq.,4=-l¢e+d.t thas ,value of 
the natural period is approximately the same as that 
assumed in Step 3, proceed to Step 7. If the difference 
between the assumed and the calculated natural periods is 
rather large, go back to Step 4 with this new value of the 
natural period (it is also possible to select a new design 
at this stage and calculate the natural period of this 
frame; then go back to Step 4). Or else, if the difference 
is minor, the frame members may be modified (mainly the 
beams) so that the natural period of the frame becomes 
practically the same as that assumed in Step 3, and pro- 


ceed to Step 7. 


est 


edt toele2. (.yiao Ietad taxti odd x00) ase 
betiupes oft paitsluolso yd bessitial at qete aldT 
rowloo eff .af-> .p& patew yrose mosjod ed? js dtpnezse = __ 
s0% nedd .betoelee teri? ers asizote mostod efd 10% Beste 
seenttise amsloo to oldsa1 efT .aw? ni eeltoja xsdto edt 
ad bivore yrote got ord t6 gait ot yxote mosttjod sda ds 

10 eemsx2 ytose-net 10% 2 bos § msewied yletamixoxqgs 
apazevs eft bas ;romext a tot € bas L neewted 
aeel ylidpile od Blwode exedmem msed eft to eeenkiite 

-nem cmtoo to eaentiitve epsueve add asds (f oF S\L yyse) 
0-2 .992 at boervoelb es , ated 

patey besuqnon nee et smext, edd to boineq Isausen ont “ 

to oulav eirit 22 .L-b .pa yd nevie slumz0? Isotitigms on? 
gedt es emsa end ylectemixorgqqs ei bolzeq Isiutsn ond 
aonezetiib off? IT .v qet@ of beevorg ,€ gqove ai bomvees 

at ebolieq Isxuwsen beteLluolas ois bus bemueres efit noowted 
eit 2o exfev wen eidd dtiw > get? o¢ dosd op ,episl renter 
aptesb wen s tpelea of sldiezeoq oels et ti) bokxeq Lsxu3sn 
aint to beixeg Jetwisn sd? etsivolsao bas espace elds 36 
oonexe22ib odd 2 \sele x0 -(b qpte o¢ Aved op madd yomext 
edd ylniem) beitibom ed ysm eredmem ems1t edt ,zonim at 
eemoped ams? edd to bokreq lexutsn et Jsdt o# )(emsed - 

~o1q bas ,€ qos? ni bemveas Jed9 as omex oft ylisoltoszg 
.§ qos@ 0 bee 


a 


| ia 


180 


STEP 7: Check if the assumed frame is adequate with 
TeESDeCl COs Strength. 

Based on the maximum base shear, Qn: obtained in 
Step 5, the maximum shears at other stories are estimated 
according to Curve A in Fig. 4-26 for ten-story frames or 
curve B in the same figure for five-story frames. For other 
structures the proportion may be obtained by interpolation. 

When the maximum story shears are determined, it is 
possible to check if the required strength is within that 
provided, by following the procedure used in the example 
Calculation =n Sec. 4-7. 

If the frame is adequate, the design then proceeds 
to Step 8. If not, a new set of member sizes is selected, 
the fundamental natural period is calculated using 


Eq. 4-1, and the design returns to Step 4. 


STEP 8: Perform dynamic analysis. 

It is always advisable to perform a dynamic analysis 
on a model which represents the actual frame reasonably 
well, in order to see if the frame designed above does 
behave as expected. (If the selection of frame conforms 
to the recommendations given in Secs. 4-6-1 and 4-6-2, the 
dynamic analysis may be omitted as the frames obtained in 


the above steps should behave satisfactory against given 


Ab andint4o" 440 vrsede tt nada | 
betsmiges sxe asixote isdto ds exsede mumtxem odd \é'qese — : 
30 nomex yrosa-ned 16% B+ .OLT mt A Svat od PatBaOsOS 

xedd0 YOR Jeomaixd ytosa-ovi? x0% orwelt omas ed3%a!!E BvacO 
noitefoquednt yd bertisddo od yam notsiedotq ety gexstouite 
el ¢i \Senimieted sis aiesede yrote mimixsal ois nei? 
tect mindtiw et dtpmosde bexiupes orld i Aoedo of eLdeeoq 
elqmexs edt at beay sivhssdiq ont patwollot yd \bsbivoxq 
.V«d .068 mi noltsigdiso 
ebessoxy neds apiegh ody \steupebs @f saszt edt 3 = 
\betosiea ef sexie sodmem Yo #62 wen s ton II .B qerxe at 
pniag bedslusiso et bolseq Lsiwtsn Isinemsbaut sd 
.6 qose oF sander apieeb edt bas (f+8° ops 


: 


oe 
ee, | ee i. ee 


| 


<n as 
-eieylens gimeanyb miocixs® :8 Gate 
rel te * 


eieylens otrisnyb 4 miotxe9 od éIdeeives eyewls eat 31 
VYidsenoasst omex? Esutosn oft atnseaxdex coirdw Tefom Py no 

’ ’ ese 
so0b svods bedpieseb empxt of9 21 92 of 19bx0 at ,iiew 


ae: 1& 

aimzotaos emsit to aoljosise edt tI) .besoeqxe 26 svened 
ase 

aid 5-348 Bde £-949 SSewe ht nevi~. enoidsbaenmooes em ot 


nt Shndande Waa? Wd bb testes 02 yen eteliane otmeayb 


ve a eansinines eveded bluode beaache euia odd 
is. 4 oe 


- 


blast loads.) 


In practice, two or three possible designs may be 


compared here. 


The final selection should be based on 


the results of such an analysis as shown in Sec. 4-8. 
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DETERMINE BUILDING CONFIGURATION 
& DIMENSIONS OF FRAME 


DETERMINE TYPE OF EXTERIOR SURFACE 
(CLOSED BOX-LIKE? PARTIALLY OPEN BOX-LIKE?) 


DETERMINE MAGNITUDE OF DETONATION 
& LOCATION OF BUILDING 


DETERMINE VECTOR, {r} & BLAST LOAD 
FUNCTION, Z(t), REFERRING TO APPENDIX E 


ESTIMATE FUNDAMENTAL NATURAL 
PERIOD OF POSSIBLE FRAME DESIGN 


CALCULATE MODIFIED TOTAL IMPULSE |. 3 
USING EQ. 4-8 OR 4-12 


CALCULATE MAXIMUM BASE SHEAR 
USING EQ. 4-I11 


NO IS THIS THE FIRST TIME TO 


COME UP (TO THES wane? 


YES 


Fig. bea Design Procedure (to be continued) 
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SELECT MEMBERS FOR THE FRAME 


WITH THE AID OF EQ. 4-16 


CALCULATE NATURAL PERIOD OF 
THIS® FRAME USING EQ. 4-1 


MODIFY MAINLY 
BEAM MEMBERS 


Ls THE 
DIFFERENCE 
MINOR? 


IS THIS NATURAL PERIOD 
THE SAME AS THE 
ESTIMATED VALUE? 


CHECK THE STRENGTH OF THIS 
DESIGN BY FOLLOWING THE 
PROCEDURE SHOWN IN SEC. 4-7 


SELECT NEW MEMBERS 
FOR COLUMNS & BEAMS 


IS STRENGTH 
SATISFACTORY? 


YES 


PERFORM DYNAMIC CALCULATE NATURAL 
ANALYSIS PERIOD OF THIS FRAME 
USING EO. 41 


COMPARE POSSIBLE DESIGNS 


AND CHOOSE FINAL SELECTION 


Fig. 5-1 (Continued) Design Procedure 
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Chapter 6. 


SUMMARY AND CONCLUSIONS 


In Chapters 2 and 3, a procedure for the dynamic 
analysis of a frame deformed into the inelastic range has 
been presented. A computer program based on this proced- 
ure is presented in Appendix D. The main features of this 
method are listed as follows: 

1) The analytical model can have as many stories 
and bays as the actual frame has. The frame need not be 
symmetric. A shearwall structure can also be considered. 

2) Either a blast load or an earthquake motion may 
be applied to the frame as an external disturbance. 

3) Inelastic action and reversals of strain are 
taken into account. An equivalent rotational spring devel- 
oped to consider these factors makes the inelastic dynamic 
calculation simpler, thus a dynamic analysis of multistory, 
multibay frame is performed within a reasonable computation 
time. 

4) A trilinear moment-curvature relationship is 
assumed for all members. The hysteresis rule used in the 
analysis (shown in Fig. 2-15) is similar to that proposed 
by Kato and Akiyama? 

5) The P-A effect is considered in an approximat=: 


manner. The properties of an equivalent rotational spring 
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are prepared to include this effect. 

6) The effect of shear deformations of beams and 
columns, the effect of semi-rigid joints, and the effect of 
shear deformations in the joint panels can be considered by 
modifying the characteristics of the equivalent rotational 
spring. 

7) Uniformly distributed loads may be applied to 
beams. Thus, it is possible to analyze the combined effect 
of both gravity loads and dynamic loads. 

8) The bases of the bottom story columns are 
attached to the foundations by elastic rotational springs. 

2) The preparation of input data (determination of 
the characteristics of equivalent rotational springs) is 
Simplified by using a separate program developed for this 
purpose (Computer Program I, Appendix Bye 

A behavioral study was performed in Chapter 4 using 
the above procedure. The study was focussed on the dynamic 
behavior of steel frames subjected to blast loads. Re- 
sponses of such frames, designed under various conditions, 
were obtained in search of a suitable design procedure. 

The sizes of frames studied here were 5 or 10 stories in 
height and between 1 and 4 bays in width. (The empirical 
formula for the natural period was checked against frames 
ranging from 2 to 40 stories and 1 to 4 bays.) The con- 


nections between the lower ends of the bottom story columns 
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and the ground are assumed to be completely fixed. The 
effect of strain-hardening and the P-,A effect were taken 
into account, but these effects were not evaluated speci- 
fically. Other secondary effects were ignored. The con- 
clusions from this study are listed as follows. 


1) The fundamental natural period, T of a frame 


LY 


can be estimated using Eq. 4-1; i.e., 
T, = T)hvB/a . N/10 


in which symbols are as explained in Sec. 4-3. 

2) The shape of blast load-time function, Z(t), 
does not significantly affect the response; the response 
is mainly influenced by the modified total impulse of the 
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estimated by Eq. 4-11; l.e., 


where ~ is approximately 4.4. This formula is valid in 


-ineqe baste Jon stow eiootte eons $0.9 
-noo ad? .beronpt sisw ajosite | | 
-ewollot es baveti vs: aetishiaee Ve 

omert 6 Yo \;? ,bolieq fstvten Istcomsbaut eft (Eee 
(tet ¢h=b spe ce oe 
One + Dey? = TS 7 oe 


+t ‘ee iad se 7 a 
-€-b .092 at banisiqne 26 918 ulaunes do Eelw mk 


 (#)8 \mokvonwt emts~bsol tenid to oqedla out (s - : 
- ®[egve 
denogass of9 ,senoqees oft Joetts ylinsoltinele ton 2906 © 
sid to seluqmk {sod baidibom sfx yd beomeutint vintam Fae 


»o@,t 48d . pe af beniteb at dt tetve *r .beol teetd 


Mt A Shiai 
e 
37 3 sp(s72(s)2 | = J ser Ug 
f=} 0 
O<2¢& . 10x ——‘<ié‘«‘ SD eee + Lys | seeteraikwes- d 
| | ; = (+) or Ven ¢ 
bY ' 
fet woh 0 » oe 


eat ‘pbgtWveb deead seed’ wwntxen oft 


. . ak tt-0 .pa vd Sevasttzas 
iad ina Cre Mele ea m i aa 


ee Sn 
city a tints at 9-8 lasnmixossae dt 


oe Nowy Bre = eres 


a 


Jo 


Lo7 


the elastic range and for moderate inelastic action. 

4) The variation in column stiffnesses along the 
height should be as small as possible. The recommended 
value for the ratio of stiffness at the bottom story to 
Bhat @tethestep story rangesstrom 2. to.5 forsten=-story 
frames and from 1 to 3 for five-story frames. 

5)) The average stiffness of beam members should be 
a little less (say, 50% to 100%) than the average stiffness 
of column members. 

6) The maximum response shear for every story is 
distributed approximately as shown by curve A for ten- 
story frames and by curve B for five-story frames, both 
in Fig.94-26, 

A) It is possible to check if a frame has enough 
capacity to resist the assumed blast load in accordance 
with the procedure explained in Sec. 4-7. A crude esti- 
mate of required strength for the bottom story columns, 


M (on the average) is given by Eq. 4-16; i.e., 


b! 
Qh 

Noe 2 1 

where L may be taken equal to 70% to 100% of the bottom 

story height. 

Based on the knowledge obtained from the behavioral 


study, a tentative procedure for a design of building 


against a blast load has been proposed in Chapter 5. 
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Appendix A 


SUPPLEMENTARY EXPLANATION OF SECTION 2-5-1 


The load-deflection (Q-A) relationship for a cantilever 
column has been derived for both the elastic and inelastic 
range in Sec. 2-5-1. The column end is fixed at the base 
and the material is assumed to have a trilinear M-@ relation- 
ship. The derivation of Eqs. 2-35, 2-36 and 2-39 is ex- 
plained in detail in this section. The load-deflection 
relationships for special cases are also demonstrated later 


im this section. 
A-le Derivation of Eqs. 2-35, 2-36 and 2-39, 


The derivation of the Q-A relationship in the elastic 
range is trivial and the proof is omitted here. 

When the moment at the base of the column reaches the 
plastic moment capacity, the system may be represented as 
shown in Fig. 2-1) This system will be described using 
two sets of coordinates as shown in Fig. A-l. The first set 
of coordinates (x-y coordinates) have their origin at point 
A where the loads are applied and the second (X-Y coordi- 
nates) at point C where the moment in the section is equal 
to the plastic moment capacity, M 


pc” 
The moment, M, at a distance X from point C is given 
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M @= Moc + OX + PY (A-1) 


The corresponding curvature, @; i.e., 

B= -¥Y (A-2) 
is on the third branch of the moment-curvature relationship 
of Fig. 2-12. Therefore, the moment and the curvature are 
related as follows: 
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Substituting Eqs. A-1l and A-2 into Eq. A-3, the differential 
equation describing equilibrium of the portion BC is obtained 
as: 
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As the boundary conditions are 


Y= 0 at X=0 


, (A-5) 
Y= 0 at X= L 
2 
Eq. A-4 is solved as 
Ven Seno CUS Art ECs G1 aa Qy aa a (A-6) 
aL Z P Pp 
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C = diy tanvL., + Paceie Eee (A-8) 
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The differential equation describing the elastic portion 
AC is written as: 
Ky + Py = -Ox (A-10) 
As the boundary conditions are 


Vua= 0 dame xX, 0 


y= Bs at x= Ly 
the equation is solved as: 
= C AUX ees nuk, — Q. (A-12) 
y 300 u 4gotnu P 
where 
Coes 0 (A-13) 
hs Q = 
Gm eh s/t ces ibs (A-14) 


The condition that the moment at point C is equal to the 


plastic moment capacity, Mog? yields the following equation: 
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where A. is the deflection of point A relative to point C, 


and is obtained by substituting x = Ly InN COPLG yea como 


's . 0. ar 
Ae = CystnuL, Py (A-16) 


Substituting Eq. A-16 into Eq. A-15 and also substituting 


Eq. A-14 for Cy, the following equation results. 


Mae = (PO, +10) tanuL,/u (A-17) 


If Eq. A-9 is substituted for oe in the above equation, the 
relationship between the applied load, Q, and the length of 
the inelastic portion, L, (or alternately the length of the 
elastic portion, L,) is obtained as: 
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WALCO. eis gig). F2539 . A, May be calculated using Eq. A-16; 
however, the following expression is simpler 
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WILLCH us soerived from Eq. A-15, Jand is given in Eq. 2-35. 
Thus by assuming the length of inelastic portion, Lo, 
the corresponding transverse load, Q, and the total deflec- 
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as in Eq. 2-34, is determined. If by increasing the inelas- 


C1co Length, Lo, the moment at the bottrom of the column, My 


M), = Ohi Ge NaN (A-18) 


reaches the ultimate moment, Mee collapse of the column is 


Cc 


assumed es.lo, OCCU. 


A-2 Load-Deflection Relationship 
When Axial Load is Absent. 


The load-deflection (Q-A) relationship in the elastic 


range is given by: 


L? 
LOG 
: M1, 
One = (A-20) 


When the moment in the lower portion of the column 
exceeds the full plastic moment capacity, Mas the system is 
SilimlatstoO.ulacasnowlpingtrd scl L. selinesaLtrerentidl equa 
tions can be constructed in a similar manner and only the 
results are shown here. The notation is the same as that 


used in the main text. 


The total deflection, A, is given by 
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and 


(AK22) 


st st 


The relationship between the load, Q, and the length of the 
inelastic portion, Lo, (or the length of the elastic portion, 


L,) is given by the next formula. 


Ol = se (A-23) 


The complete Q-A relationship is obtained as before 
except that Eqs. 2-35, 2-36 and 2-39 are now replaced by 
Eqs. A-21, A-22 and A-23. 

A-3 Load-Deflection Relationship When the Moment- 

Curvature Relationship is Elastic-Perfectly Plastic. 

The system shown in Fig. 2-11 is considered once more, 
however, the moment-curvature relationship is now assumed to 
be elastic-perfectly plastic. In the elastic range, the 
behavior of this column is the same as that described in 
SCC Ee = bs 

After the moment at the bottom of the column reaches 
the plastic moment capacity, Moc! it is usually assumed 
that an infinite rotation capacity 1s available at the bot= 
tom of the column. Then the load-deflection (Q-A) relation- 


ship is written as 
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or 


Qu =p--, =Apte——— (A-24) 


It is not possible, however, to relate the deflection to 
the curvature as in previous examples. Thus, in order to 
estimate the maximum deflection for a given value of the 
ductility ratio,” additional factors must be taken into 
account. 

A-4 Load-Deflection Relationship When the Base of 

the Column is Restrained by a Rotational Spring. 

In Fig. 2-11, it is now assumed that the base of the 
column is now attached to the foundation by an elastic 
rotational spring having a spring constant, k. Otherwise, 
the conditions are the same as those in Sec. 2-5-1. 

If the entire length of the colunn remains elastic, 


the Q-A relationship is given by: 


QL? 3 (tanyL-uL) ff QL , tanuL 
3K ( L)? k ul 
A = se en nea Selena tr cts ice te mr (A-25) 
1 Reee fanuL 
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Once the moment at the base of the column reaches the plastic 
moment capacity, the behavior is described as shown in Sec. 


A-l. The differential equation describing the elastic portion 
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is as shown in Eq. A-10 and that describing the inelastic 
portion is shown in Eq. A-4. The differences occur only in 
the boundary conditions. The resulting equations are shown 


below: 


as in Eq. 2-34, where 


an = MDC Hee hal. (A-27) 
12) 
which has the same expression as in Eq. 2-35. Ay is given 
by: 
A = Conve Fey Vuh. = 2 = ws (A-28) 
p it 2 2 eS peti 
where 
fel 
Cy es es = 
Cy = 5 , (A-29) 
and 
iste OL 
Dp a oe ae 2 IM, ~ M, (1-¢o4vL5) } 
C, = +, Fe —__*=+____= (A-30) 
veosvL, ~ PStnvL, 


The equation describing the relationship between the length 


of the inelastic portion, Lo, and the applied load, Q, is 


given as: 
cosVL 
QO = WMpetanub, = M;vsinvly 
(nv 
= P iM - M. (l-cosvL.,) +uM Bisa 2y 
ie Gale at 2 pctanul, 


(A-31) 


, 34 - fe g 
i @ eecyyarns 
jag wht ehQhSe® 5 at 


stow sbE-S .pa ak as 
yp? he . woe ‘ 
(TSA) = oo 
q 
7 ae Pe beg 
nevip ei gf .®f-S .pa nt es moleeerqxe omsa edt esd dotdw 
ry¥d 
s = 
(aS=a) a a ee Le ee 
= ‘ 
(Q@S-4) a vo"g = 4? ae 
bas 


ihe {(gdveoomL) M - Pe i 2+ gtunssutg: 9 


gAWN db | giveooy 


djpensil eds agewsed qidanotislex sAt pnidkisesb nolisups oT 
et .Q ,bsel Setiqgs eft bas ,od ,noiti0g oisasient eft to 


ia asvi 
7: 695 
be peace 


agit 4+ (glvaoa~£) jM ~ 40g - ; 


205 


Using these equations, the complete load-deflection 
curve is obtained as before. In the above equations, if 
the value of k is set equal to infinity, the equations 


shown in Sec. 2-5-1 are obtained. 
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Fig. A-l Coordinate Systems in Column 
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Appendix B, 
COMPUTER PROGRAM I 
B-l Description of the Program. 


This program has been developed to determine the pro- 
perties of an equivalent rotational spring. The resulting 
MeO Oe relationships together with the pertinent input data 
can be plotted by the CalComp Plotter as shown in Figs. 
2-14a through 2-14d. The theoretical background is 


explained in Chapter 2. 
B-ZeeeLaputLsDatarg 


BimsitiiCard:; GSN WUS Toray STN FP SEK Ciprvs 
Tneminpucweormat 1s (8F10F 0) 

SeCOnG es Caro mmel NDI, 
Ticwl pute LOLMa tell cs men FL Op OjeelD ie 

The above pair of cards are repeated for each system 
to be solved. To indicate the end of the problem, two 
blank cards are added at the end. The variables used here 


are as follows. 


SN ::° Nominal size of wide flange section (inch), 
SI : Moment of inertia Hiei. 
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indicates | the ratio.ofsapplied axial load 


to yield axial load, 


H : Height of the equivalent cantilever column, 
STN : S$ taSebn Eqay 2512; 
STKo~: E5,/E, where E, Est are defined in Sec. 2-2, 
De Ws Cherm where oye O,, are defined in Sec. 2-2, 
YS ;: Yieldsstress7 7 (ksi), 
E : Modulus of elasticity (ksi), and 
NDIV : Any integer which is gireater than about 50. 


The greater this number, the more accurate 
the result. (NDIV < 100 is usually satis- 


factory.) 


B-3 Description of Subprograms and Flow Charts, 


(1) MAIN PROGRAM. 

Description: MAIN PROGRAM initiates CalComp 
Plotter, selects origin for the figure, calls 
subroutine KEISAN for the calculation of the 
Q-A relationship, and calls subroutine CHANGE 
to convert the Q-A relationship to the MasOee 
relationship. Input data and the M,~59,, 
relationship are plotted by calling subrou- 
tines DRAW1 and DRAW2. 

Calls: KEISAN, CHANGE, DRAW1, DRAW2 and CalComp 


subroutines. 
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Flow Chart: Shown in Fig. B-l. 
(2) SUBROUTINE KEISAN. 

Description: KEISAN determines the cross section- 
al area and the plastic section modulus for 
the given values of the nominal depth and 
the moment of inertia based on Eqs. 2-3 and 
2-5, respectively, and then the moment- 
curvature-thrust relationship in accordance 
with the description in Sec. 2-4-1. The Q-A 
relationship for the cantilever column is 
calculated using the procedure shown in Sec. 
2-5-1 or Appendix A. 

Called By: MAIN. 

Calls: CalComp subroutines. 

Flow) Chart: “eShown Vin’ Fig? B=2; 

(3) SUBROUTINE CHANGE. 

Description: CHANGE converts the Q-A relationship 
to the pe Sblo relationship using the proced- 
ure shown in Sec. 2-5-2. 

Called By: MAIN. 

Flow Chart: Omitted. 

(4) SUBROUTINE DRAW1. 

Description: DRAW1 draws the Meaoue relationship 

as shown at the upper part of Fig. 2-14. 


Called By: MAIN, 
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Calls: IFOX and CalComp subroutines. 
Flow Chart: Omitted. 
(5) SUBROUTINE DRAW2. 

Description: DRAW2 draws the moment-curvature- 
thrust relationship as shown in the lower 
left-hand side in Fig. 2-14, then calls 
LABEL to enter the labels and titles and to 
show the column properties. 

Called By: MAIN. 

Calls: IFOX, LABEL and CalComp subroutines. 

Flow Chart: Omitted. 

(6) SUBROUTINE LABEL. 

Description: LABEL puts labels on the moment- 
curvature-thrust relationship, and then 
draws the column with pertinent properties 
and loading situation as shown in the lower 
right-hand side of Fig. 2-14. 

Called By: DRAW2. 

Calls: CalComp subroutines. 

Flow Chart: Omitted. 

(7) FUNCTION IFOX 
Description: IFOX defines the function y = [x]. 
Called By: DRAW] and DRAW?. 


Flow Chart: Omitted. 
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B-4 Listing of the Program. 
The listing of the program appears on page 215 


through 227. 


ae. > 
aT Pel atis | 


Tr me rere, e Aad aneton * 
isp ae) Gay - abie eon 
wo aw =ii Wuss we eR 7% AF 

soy die cht Gale 2} 

| oe «cts beets | 

AD. (eater - 

coor’ walt a 

So ~Hee stuitha (ay’ m - 

‘ndesalltntaia 


, 


* al ae 
od? . era J 
- ico Re ate CUE aatepiylndgy os 
5O) 7 eee Pe eta, 
a) ae A 
as ; ia isi drei: 


+ a 
: 7 


‘ ‘ : 7 
" Ss of A 

¥ - . 
: ay \ 7 : 7 - . 7 


= 


Initiate CalComp Plotter 


Read input data 
(2 cards at a time) 


Select Origin OL tie Ligure 


Are data cards blank? 
Call KEISAN 


Is NFAIL=1? 


No 


Call CHANGE 


Pin CeOULe nemMo—OOn 
relationships 


Call DRAW1 
Call DRAW2 


Fig. B-l MAIN PROGRAM 
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Set NFAIL=0 


Calculate cross sectional area and plastic 


section modulus for a given nominal depth 
and moment of inertia 


Determine the ratio of axial load to yield 


axial load 


Calculate the reduced plastic moment capacity 


Was there any mistake 
in input data?, 


Set NFAIL=1 


Does strain-hardening 
exist? 


No 


Yes 


Determine the onset point, 
regidity and terminal point of 
strain- hardening in moment- 


Calculate the 
Q-A relationship 


as explained 
curvature- thrust relationship in Appendix A 
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Fig. B=2 SUBROUTINE KEISAN (to be continued) 
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Divide the column into segments 


Assume inelastic column length, oy pL nerig o 2a 11 
as 1x (length of segment) 


Calculate Q and A corresponding to the assumed 
inelastic length using Eqs. 2-34 and 2-39 


Calculate the moment at the bottom 
of the column 


Is this moment greater than or equal to 
the ultimate moment capacity or is it 
smaller than that obtained in previous step? 


Yes 


Pig ab—2 (Continued) SUBROUTINE KEISAN 
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LISTING OF PROGRAM I 


DIMENSION QL(201) ,DF (201) ,GRAPH (1024) 
CALL PLOTS (GRAPH,4096) 
NELOT=0 ; 
100 NPLCT=NPLOT+1 
READ(5,110) SN,SI,P,H,STN,STK,D,YS,E,NDIV 
110 FORMAT (8F10.0/F10.0,15) 
ZE(NELOT .GE. 2) GO TO 120 
CALEmOYEBOL s(0.0)020705 105; 0107-1) 
CALL SYMBOL (8.5,0.0,0.1,3,0.0,-1) 
GC TO 140 
120 ICH=2* (NPLOT/2) 
IF(NELCT .EQ. ICH) GO TO 130 
CALL ELOT (6.6,-14.3,-3) 
CRILSSYMBOL (8.5,0.0,0.1, 3,0.0,-1) 
GO TO 140 
130 CALLSPLOT (-1-9,7+ 77-3) 
140 IF(SN .LT. 0.1) GO TO 200 
GaLImesyYMEOLM(0-071120,0m153 010,04) 
CAL imCIMBOIS (8255117075069, 3 0000 ,—T} 
CALL SYMBOL (0.3,1.5,0.05,*PRODUCED WITH PROG#24, BY MASAAKI SUKO! 
1,90.0, 38) 
CALL KEISAN (IP, ISTH,NFAIL,STK,P,E,S1,EI,SN,Z,YS,FPM,CY,ARE!,FAL,F 
1P,FM,STN,STND,STKD,UM,D,PM,QMAX,QMIN, NDIV,H,NDEND, QL, DF, SPT) 
IF(NFAIL .ECQ. 1) GO TO 200 
CALL CHANGE (QL,DF,QMAX,QMIN,NDEND,SPT,H,EL,P,IP) 
WEIGHT=3.4*AREA 
NSZ=IFIX(SN+0.5) 
NWT=IFIX (WEIGHT+0. 5) 
WRITE (6,150) NSZ,NWT,SI,P : 
150 FORMAT(1H1, 1X,*** W',I3,'X',I3,4X,"MOMENT OF. INERTIA=',F9.1,4X, 
1*AXIAL LOAD=',F8.1//T17,*MOMENT',T28,"RELAXATION ANGLE‘) 
DO 170 K=1,NDEND 
WRITE (6,160) QL(K) ,DF(K) 
160 FORMAT (10X, 2E15. 5) 
170 CONTINUE 
WRITE(6,180) SPT 
180 FORMAT (/1X,"*SLCPE OF DASHED LINE =',E12.5) 
CALL CRAW1 (QL,DF,QMAX,QMIN,NDEND,SPT,ISTH ,IP) 
CALL CRAW2 (IP,1ISTH,STK,P,SI,E1,SN,FPM,CY,FP,FM,STN,STND,STKD,UM,D 
1,PM,H, WEIGHT) 
CALL FACTOR (1.0) 
GO TO 100 
200 IF(NELOT .EQ. ICH) CALL PLOT (1.9,-11.0,-3) 
CALL PLOT(10.0,0.0,-3) 
PLNG=8.5*FLOAT (ICH/2+1) +3.5 
WRITE(6,300) PLNG 
300 FORMAT (1H1,*REQUIRED PLOTTING PAPER LENGTH=',F4.0,'INCHES') 
CALL PLOT (0.0,0.0,999) 
STCE 
END 
SUBROUTINE KEISAN (IP,ISTH, NFAIL,STK,P,E,SI,EI,SN,Z,YS,FPM,CY,AREA 
1, FAL, FP,FM,STN,STND,STKD,UM,D,PM,CMAX,QMIN, NDIV,H, NDEND, QL, DF, SPT) 
DIMENSION QL(201),LF(201) 
Ip=1 
ISTH=1 
NFAIL=0 
IF (STK .LE. 0.000001) ISTH=0 
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IF(E .LE. 0.000001) IP=0 
EI=E*SI 
Z=1.79*SI¥**0. 95/SN**0.8 
FEM=Z¥*YS 
CY=FEM/EI > 
AREA=3.4*SI**0.87/SN¥*1.5 
FAL=AREA*YS 
IF(P .GE. 1.000001) GO TO 150 
FE=E 
P=FP*FAL 
GO TO 160 

150 FP=P/FAL 

160 SET=-E/H 
IF(FP .GT. 1.000001) GO TO 220 
IF(FE .GE. 0.333333) GO TO 200 
FM=1.0-1. 8*FD¥*2 
GO TC 230 

200 FM=1.2%(1.0-FP) 
GO TO 230 

220 NFAIL=1 
CALL SYMBOL (1.0,1.5,0.1,"GIVEN DATA ARE NOT PROPER',0.0,25) 
RETURN 

230 IF(ISTH .EQ. 0) GO TO 310 
IF(STN .GE. 3.0) GO TO 260 
UN= (3.0+STN* (2.0-STN)) /4.0 
IF (FM .GE. UN) GO TO 260 
STND=FM+t (STN-1.0) /2.0 
GO IC 300 

260 STND=STIN-0.5*SQRT(1.0-FM+1. 05-20) * (STN+1.0) 

300 STIKD=(2.0-FM) *STK | 
EIST=STIKD*EI 
UM=(FM+D-1.0) *FPM 
SAM=STND*STKD*FPM 

310 PM=FM*FPM 
QMAX=0.0 
QMIN=1.0E-20 
IF (ISTH .EQ. 0) GO TO 410 
TF (TP “JEQ. 0) GO TO 320 
A=SQRT (P/EI) 
B=SQRT (P/EIST) 

320 HD=H/FLOAT (NDIV) 
ND=NDIV+1 
GMOLE=0.0 
DO 400 I=1,ND 
NDEND=I-1 
HB=HD*FLOAT (I-1) 
HU=H-HE 
Pete eEO. 0) GO TO 350 
SNA=SIN (A*HU) 
CSA=CCS (A*HU) 
SNB=S1N (B*HB) 
CSE=COS (B*HB) 
TNA=SNA/CSA 
TNB=SNB/CSB 
Q=A*EM*CSB/TNA-SAM*B*SNB 
C1=SAM/P 
C2=(C1*B¥*SNB+Q/P) /B/C SB 
ALEHA=C2*B-Q/P 
C4=C2*B/A/CSA 
DU=C4*SNA-Q*HU/P 
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DB=C 1*CSB+C 2*SNB-Q*HB/P-SAM/P 
DEL=LDU+DB 
GM=P*DEL+Q*H 
GC 10 390 

350 Q=EM/HU 
DB= (C*HB*¥*3/3.0+SAM*HB**2/2.0) /EIST 
ALPHA= (Q*HB**2/2.0+SAM*HB) /EILST 
DU=Q*HU**3/3.0/EI+ALPHA*HU 
DE1L=DU+DB 
GM=Q*H 

390 IF(GM .GT. UM) RETURN 
IF(GM .LT. GMOLD) RETURN 
GMCLD=GM 
QL (1) =Q 
DF (I) =DEL 
TF(CMAX .LT. Q) QMAX=Q 
IF(CMIN .GT. Q) CMIN=Q 

400 CONTINUE 
RETURN 

410 NDEND=Z 
LPI. EO. 0)" GO TO 420 
A=SQRT(P/EL) 
QL (1) =A*PM*COS (A*H) /SIN (A*H) 
DF (1) =(PM-QL (1) *H) /P 
GC 10 430 

420 QL(1)=EM/H - 
DF (1) =CL(1) *H**3/3.0/EI 

430 DF(2)=20.0*DF (1) 
QL (2) =QL(1) -P*19.0*DF (1) /H 
TF (FE EOl, 0) POL (2) =OL (1) 


CMAX=CL (1) 

IF (CL'(2)' SLT. 0.0) OMIN=O1L(2) 
RETURN 

END 


SUBROUTINE CHANGE (QL,DF,QMAX,QMIN,NEND,SPT,H,EI,P,1IP) 
CIMENSION QL (201) , DF (201) 
DO 100 I=1,NEND 
X=DF (1) 
Y=QL (I) 
QL (I) =Y*H 
DF (1) =X/H-Y*H**2/3.0/EI 

100 CCNTINUE 
IF(DF(1) «LE. 1.0E-25) DF(1)=0.0 
QMAX=CMAX*H 
QMIN=CMIN*H 
TET EST EOULOY~ Gobt6T110 
SPT=-H/ (H*¥*2/3.0/EI+1.0/P) 
RETUEN 

110 SET=0.0 
RETURN 
END 
SUBROUTINE DRAW1 (QL,DF,QMAX,QMIN,NEND,SPT,ISTH, IP) 
DIMENSION QL(201) ,DF(201) 
CALL EFLOT (1.9,6.0,-3) 
CALL FACTOR (0.9) 
CALL SYMBOL (1.1,-0.57,0.1,*END MOMENT-RELAXATION ANGLE RELATIONSH 
1I1F*,0.0,40) 
IQ=1FOX (ALOG10 (QMAX-QMIN) -0.478) 
NQA=IFIX(QMAX/10.0**IQ) +1 
NQB=IFOX (QMIN/10.0**IQ) 
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UNL=4.0/FLOAT (NQA-NQB) 
NC=IFIX(0.3/UNL) +1 

QLAE=FLOAT (NQ) 

UNL=QLAB¥*UNL 

BAIC=CLAB*10.0** IQ/UNL 

INIC=-NQB/NQ 

YGEN=UNL*FLOAT (INTC) 

IWA=-INTC*NQ . 
IF(IWA .NE. NQB) YGEN=YGEN+UNL/2.0 
CALL ELOBH(0 20506073) 

GAIIGFLOP, (020 ,48072) 

CALL PLOT (0.0,YGEN,-3) 

EEU1CS2GEsr 3)~GOHTON200 

IF(IQ .LE. -2) GO TO 210 
QLAB=CLAB*10.0**1Q 

Jo=C 

GC 10 250 

QLAB=CLAB*100.0 

JO=10Q-2 

GO 10 250 

QLAB=CIAB/10.0 

JO=IQ+1 

CALL SYMBOL (0.0,0.0,0.1, 16,90.0,-1) 
IEIC=NCA/NQ+1 

TEXTORSLESE-1)-0G0,TO, 252 

CALL SYMBOL: (-0.6,-0.05,0.1,° 0',0.0,6) 
664108253 

CALL SYMBOL (-0.6,-0.05,0.1,' 0.0',0.0,5) 
INIC=INTC+1 

DO 270 I=1,INTC 

IF({UNL .LT. 0.6) GO TO 255 

Y T=UNL*FLOAT (I-1) +UNL/2.0 

IF(YT .GT. YGEN) GO TO 280 

YT=-Y1 

CALL SYMBOL (0.0,YT,0.1,16,90.0,-1) 
YT=UNL¥*FLOAT (I) 

IF (YI .GT. YGEN) GO TO 280 

YI=-YT 

CALL SYMBOL (0.0,YT,0.1,16,90.0,-1) 
YI=YT-0.05 

YLA=CLAB*FLOAT(I) | 

SeQaGC +L. -1) GO Io 256 
KETA=IFIX (ALOG10 (YLA+0.00001)) +1 
KBL=4-KETA 

YLA=-YLA . 

GALUOSYMBOL (-0.6,YT,0.1," *,0.0,1) 
IF(IC .LE. -1) GO TO 266 
EB(KBLe@-EO. 0) GO TO 265 

DC 260 J=1,KBL 
OALDOSYMBOLE(=0.0,-0.0,0.1," *,0.051) 
CONTINUE 

CALL NUMBER (-0.0,~0.0,0.1, YLA,0.0,-1) 
GOuTG 270 

CALL NUMBER (-0.0,-0.0,0.1,YLA,0.0,1) 
CONTINUE 

YELUS=4.0-YGEN 

Dc 300 I=1,IPTC 

IF(UNL .LT. 0.6) GO TO 285 
YI=UNL*FLOAT (I-1) +UNL/2.0 

IF(Y1I .GT. YPLUS) GO TO 350 
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CALL SYMBOL (0.0,¥T,0.1,16,90.0,-1) 
285 YI=UNL*FLOAT (I) 
IF(YT .GT. YPLUS) GO TO 350 
CALL SYMBOL (0.0,YT,0.1,16,90.0,-1) 
YT=YI-0.05 
YLA=QLAB*FLOAT (I) 
IF(IQ .LE. -1) GO TO 286 
KETA=IFIX (ALOG10 (YLA+0.00001)) +1 
KBL=5~-KETA 
286 CALL SYMBOL (-0.6,YT,0.1,' ',0.0,1) 
IF(IQ «LE. -1) KBL=1 
DC 290 J=1,KBL 
CALL SYMBOL (-0.0,-0.0,0.1,* ',0.0,1) 
290 CCNTINUE 
IF(IQ «LE. -1) GO TO 295 
CALL NUMBER (-0.0,-0.0,0.1,YLA,0.0,-1) 
GO 10 300 
295 CALL NUMBER (-0.0,-0.0,0.1,YLA,0.0,1) 
300 CCNIINUE 
350 IF(JO .EQ. 0) GO TO 400 
YJO=FLOAT (JO) 
YT=YPLUS+0.1 
CALL SYMBOL (-0.5,YT,0.1,'X10',0.0,3) 
YI=Y1+0.07 
CALL NUMBER (-0.0,¥T,0.08,YJ0,0.0,-1) 
400 YI=YEF1US - 
CALL SYMBOL (0.1,YT,0.12,'M',0.0,1) 
CALL SYMBOL (-0.0,-0.0,0.1," ( KIP-IN )*,0.0,11) 
GALL-ELOT (0.0,0.0,3) 
GNP EL CTS (528/70.-0),02) 
DCMAX=LE (NEND) 
ID=IFOX (ALOG10 (DMAX)-0.478) 
NDA=LFIX (DMAX/10.0**ID) +1 
UND=5.€/FLOAT (NDA) 
ND=IFIX(0.4/UND) +1 
DLAB=FLOAT (ND) 
UND=DLAB*UND 
BAID=CLAB*10.0** ID/UND 
DR(IDeeGe. 3) GO TO 410 
IF(ID .LE. -3) GO TO 420 
DLAB=CDLAB*10.0**ID 
JO=0 
GO TO 450 
410 DLAE=L1LAB*100.0 
JO=1D-2z 
GC TO 450 
420 DLAB=DLAB/100.0 
JO=ID+2 
450 IDIC=NLA/ND+1 
DO 500 I=1,IDTC 
IF(UND .LT. 0.8) GO TO 455 
XI=UND*FLOAT (I-1) +UND/2.0 
LEOXT e'GTe9 15. 8)0_GO,-TO, «5,10 
CALL SYMBOL (XT,0.0,0.1,15,-90.0,-1) 
455 XT=UND¥FLOAT (I) 
Drives GT.015.8) GO TO 510 
CALL SYMBOL (XT,0.0,0.1,15,-90.0,-1) 
XLA=DLAB*FLOAT (1) 
XT=XT-0.1 
IF (ID .EQ. 0 -AND. XLA «LE. 9.99) XT=XT+0.05 
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IF(ID .LE. -1) GO TO 460 

CALL NUMBER (XT,-0.2,0.1,XLA,0.0,-1) 

GO TO 500 

CALL NUMBER (XT,~0.2,0.1,XLA,0.0,2) 
CCNIINUE 

IF(JO .EQ. 0) GO TO 550 

CALL SYMBOL (5.9,-0.05,0.1,'X10*,0.0, 3) 
XJO=FLOAT (JO) 

CALL NUMBER (-0.0,0.02,0.08,XJ0,0.0,-1) 
CALL SYMBOL (4.9,0.1,0.12,43,0.0,-1) 
CALL SYMBOL (-0.0,-0.0,0.12,37,0.0,-1) 
CALL SYMBOL (-0.0,-0.0,0.1," ( RAD. )',0.0,9) 
QYLD=CI (1) 

DYLD=EF (1) 

SLCEE=SPT*BAID/BAIQ 

CALL ELOT (0.0,0.0,3) 

DC 600 I=1,NENE 

QL (1) =QL(I) /BAIQ 

DF (I) =DF (I) /BAID 

CALL ELOT® (DF (1) ,QL (1) ,2) 

CCNIIKNUE 

XT=2.0*DF(1) +0.2 

YT=0.3 

TENTSTH .E0. 0) Go TO 620 

IF(IE .EQ. 0) GO TO 605 

Y END=-YGEN+0.3 

XEND= (YEND+SLOFE*DF (1) -QL(1)) /SLOPE 
IF(XEND .LE. 5.5) GO TO 610 

XEND=5.5 

Y ENC=SLOPE* (XEND-DF (1) ) +QL(1) 

CALL ELOT(DF(1),QL (1) ,3) 

CALL CASHPT (XEND,YEND,0.06) 

CALL SYMBOL (XT, YT,0.1,'SLOPE OF DASHED LINE=',0.0,21) 
GC 1C 630 

CALL SYMBOL (X1,YT,0.1,*SLOPE OF SECOND BRANCH=',0.0,23) 
IF(IE .FQ. 0) GO TO 635 
KETA=IFIX (ALOG10 (-SPT) ) +1 

IF(KEIA ,GE. 6) GO TO 640 

IN=3-KETA 

IF(KEIA .GE. 3) IN=-1 

KETA=0 

GO 10 645 

IN=1 

KETA=0 

GO IC 645 

IN=-1 

KETA=KETA-3 

FK=FLOAT (KETA) 

SPI=SET/10.0**KETA 

CALL NUMBER (-0.0,-0.0,0.1,SPT,0.0,IN) 
IF (KETA .EQ. 0) GO TO 649 

YTU=¥1+0.07 

CALI SYMBOL (-0.0,-0.0,0.1,'X10",0.0,3) 
CALL NUMBER (-0.0,YTU,0.08,FK,0.0,-1) 
YI=Y1T+0.25 

YTD=Y1-0.05 


CALL SYMBOL (XT,YT,0.12,43,0.0,-1) 

CALL SYMBOL (-C.0,-0.0,0.12,37,0.0,-1) 
CALL SYMBOL (-0.0,YTD,0.08,*S-YIELD',0.0,7) 
GREW SYMBOL (-C.0,YT,0.1,'=',0.0,1) 
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PeUCLPSEO. 61 = ANE. CYLD .GT. 1.0E=-25) GO TO 655 
CALL SYMBOL (-0.0,-0.0,0.1, *0.0',0.0,3) 
GO 10 €90 
655 KETA=IFOX (ALOG10 (LYLD) ) +1 
. IF(KEIA .LE. 1) GO TO 660 
IN=-1 
GO TO 680 
660 IF(KETA .LE. -3) GO TO 670 
IN=2-KETA 
GC TO 680 
670 IN=3 
DYLD=CDYLD/10.0**KETA 
680 CALI NUMBER (-0.0,-0.0,0.1,DYLD,0.0,IN) 
IF(KETIA .GE. -2) GO TO 690 
YTU=Y1+0.07 
DK=FLCAT (KETA) 
CALL SYMBOLES(-0. 07:-0.0,0.1,°kK10",0.0, 3) 
CALI NUMBER (-0.0,YTU,0.08,DK,0.0,-1) 
690 YT=YT+0.25 
YICD=YT-0.05 
CALUMISYMBOL (XT, YT, 0.1,°M" 70.0; 1) 
CALL SYMBOL (-0.0,YTD,0.08,'S-YIELD*,0.0,7) 
CADIGSYMBOL. (—020,YT;0217'=",0.0, 1) 
IN=-1 
TFXTOC JE. C1) GN=2e10 
CALL NUMBER: (-0.0,-0.0,0.1,QYLD,0.0,IN) 
ITF(YGEN .GE. 0.1) GO TO 710 
CALIS SYMBOL £(07'0;, 020,05 1735 ,-90.0,-1) 
TE(LDO hE. -1) GO TO: 700 
CALLA SYMBOL (-0.05,-052,0.1,10",0.0,1) 
GO Tc 710 
(OO SALEaSYBEBOL (—C.1,-0.2,0.1,°0.0",0.0,3) 
710 CALL ELOT (0.0,-YGEN,-3) 
RETURN 
END 
SUBROUTINE DRAW2 (IP, ISTH,STK,P,SI,EI,SN,FPM,CY,FP,FM,STN, STND, STK 
1D,UM,C,EM,H,WEIGHT) 
CALLetL OTe (0. 0,-2.6 27-3) 
IF (ISTH .EQ. 0) D=1.0 
ZF(LvsLeEs 1.2) GO TO 150 
Y3=2.0 
Y1=z.0/D 
GC 10 160 
150 YA=en.£& 
Y3=1.5*D 
160 Y4=Y14FM 
IF(ISTH «BQ. 0) UM=FU 
Y€=Y4*UM/PM 
EEAZTSTU SEO. (0), GOETO 180 
PEM=SIN+(D-1.0)/STK 
X3=3.3 
X 1=2.3/PHM 
X2=SIN*X1 
X4=X14*FM 
X5=X1*STND 
FHMD=SIND+(D-1.0) /STKD 
X6=X1*EHMD 
GO TO 200 
180 xX3=3.3 
K¥i=0233 
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X4=0.33*FM 
X6=3.: 
200 (CA Prot (0.052. 1, 2) 
CREE PLOT Y(S .15°/0).'0r,*3) 
GALE Pret ~(0 .0";0507:2) 
CAIL FLOT (X4,Y4,2) 
IF (IE .FQ. 0) GO TO 215 
CALL DASHPT (X1,Y1,0.06) 
CAUY *ELOT (XT, Y 172) 
PE (LSTH PSEO. 0)* iGO SLO) +210 
‘CALL DASHPT (X2,Y¥1,0.06) 
CAI PLOT (X2 pv N72) 
210 CAII LCASHPT (X3,Y3,0.06) 
CRIT ELOT(X3 V2 f2) 
CEP Fror™ (x4; vt 23) 
ioe elton est. 0)PGoO. T0220 
CRIT FLOT (x5; /Y8';2) 
220 CRLECELOT (X6,%6, 2) 
CAEL SYMBOL *(-092/-032,0.1,°0',0.0,1) 
CALEPSYMBOL (0.0,71,0.1,16,90.0,-1) 
2=Y1-0.05 
CALL SYMBOL (-0.3,Z2,0.1,'M',0.0,1) 
Z=2-0.05 
CALL SYMBOL (-0.0,2,0.08,'P',0.0,1) 
IF(IE .EQ. 0) GO TO 240 
CALL SYMBOL’ (0.0,Y4,0.1,16,90.0,-1) 
YSA=Y1-Y4 
LPUYSA SLT OF 15) VCO «TO 9230 
Z=Y4-0.05 
GO TO 235 
230 CAIL ELOT (-0.06,Y4,3) 
Z=Y4-C0.2 
GCRELPELOT (-0.3,2,2) 
Z=2-0.1 
235 CRhLIM SYMBOL (-0.3577,0.1,'M',0.0, 1) 
Z=2-0.05 
CALL SYMBOL (-0.0,2Z,0.08,'PC!,0.0, 2) 
240 TF(ISIN’ S50. 0) GO TO 270 
CALE SYMBOL* (050;Y3;05 1,16,90.0,-1) 
YSA=Y3~-Y1 
IF(YSA .LT. 0.15) GO TO 250 
Z=Y2<0.05 
GOP TOFZ55 
250 CALL ELOT (-0.06,Y¥3,3) 
Z=Y3+0.2 
CALE@ELOT™ (-0. 2,2, 2) 
255 CALL SYMBOL (-0.3,2,0.1,'M',0.0, 1) 
Z=Z-0.05 
CALL SYMBOL (-0.0,Z,0.08,'U',0.0,1) 
Tribe. co." 0) GO 1007270 
CALIM@ SYMBOL (0.0,%6,0. t, 16,90.0,=1) 
IF(Y6 .GE. ¥1) GO TO 260 
YSA=Y1-Y6 
YYS=Y6-Y4 
IF(YSA .GE. 0.15 .AND. YYS .GE. 0.15) GO TO 265 
GO) 10 270 
260 YSA=Y3-Y6 
YYS=YE€-Y1 
IF(YSA .GE. 0.15 .AND. YYS .GE. 0.15) GO TO 265 
GO 10 270 
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265 Z2=Y6é-0.05 


270 


21> 


280 


285 


290 


295 


CALL SYMBOL 
Z=Z-0.05 
CALI SYMBOL 
CALL SYMBOL 
CALL SYMBOL 
CAIIL SYMBOL 
CALI SYMBOL 
IF(IP .EQ. 
CALLSESYMBOL 
XSA=X1-X4 
IF (XSA .LT. 
XT=X4-0.05 
CALI SYMBOL 
CALL SYMBOL 
GO IC 280 
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(-0.3,2,0.1,°H',0.:0,,1) 


(-0.0,2,0.08) * UC", 0.0, 2) 
(-0.05,2.15,0.12,'M",0.0,1) 
(rg, 0.07 0615115, -90s Ose 1) 

(1 1,-002e 0216 3640.07=1) 
(-0.0,-0.25,0.08,'P',0.0, 1) 

0) GO TO 280 

(X4,0.0,0.1,15,-90.0,-1) 


051) ,GO.TO09275 


(OCT OR, Olmig 3.0910 Og — 1) 
(HO. OF 0925, 0.08, "°PC%,0.0,2) 


CALL PLOT (X4,-0.06,3) 


XT=X4-0.1 


CALL ELOT (XT,-0.2, 2) 


X1=X1-0.1 
CALL SYMBOL 
CALI SYMBOL 
IF(ISIH .EQ 
XSA=X2-X1 
IF(XSA .LT. 
CALL SYMBOL 
XT=X2-0.05 
CALL SYMBOL 
CALL SYMBOL 
CALL SYMBOL 
IF(IE .EQ. 
CALL SYMBOL 
XSA=X2-X5 
LE (XSAeG LT? 
X1=X5=0.05 
CALL SYMBOL 
CALL SYMBOL 
GO 10 290 
CALI ELOT: ( 
XT=X5-0.1 
GALL EtOTai( 
XT=XT-0.1 
CALL SYMBOL 
CALL SYMBOL 
CALL SYMBOL 
XT=X3-0.05 
CALL SYMBOL 
CALL SYMBOL 
LE (IE s.50: 
CALL SYMBOL 
XSA=X2-X6 
ER (XSh yabite 
XT=X6-0.05 
CALL SYMBOL 
CALL SYMBOL 
GO 10 300 
CALL FLOT ( 
X1=X6-0.1 
CALL PLOT 
X1T=X1-0.1 


(COL 0 2239710 $1367.00 7-1) 
(OOO 3 pile O Gigt DG sOct0 5/2) 
. 0) GO TO 290 


0.3) GO TO 290 
8(X2 {0/2077 011. .115,7=9'0)5.0) 511) 


(X= Ole 2 Oe OSS Ole O ent) 
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(=02,07 -02 25,0200, 5P* 020,51) 


0) GO TO 290 
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X55=070673) 
GE 10) 245 79)) 
(XT 055,05 1,530,060, — 1) 
(=0.0,=—0.35, 05007 or 70.0,2) 
(X¥37000 705 1, 10, -9050,— 1) 
(HT 7206270. 1, 36,0.0,-1) 
(=Cy 07-0. 257 0.0570 0, 0.07.1) 
Ope Che tor, «EQ. 0) GOs TO 7300 
(26 90 30,0. 11, 159/-9000)=1) 
0725)9,GO TO 7295 


(XT, =0% 23:0 317,36,0.0,—1) 
(0%, 07,,-:0).25,80.10.8'.* UC 450.50 772) 


X6,-0.06,3) 


(XT, 70.2, 2) 
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326 


330 
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CALL SYMBOL (XT,-0.3,0.1,36,0.0,-1) 
CALL SYMBOL (-0.0,-0.35,0.08,*UC',0.0,2) 
CALL SYMBOL (3.6,-0.05,0.12, 36,0.0,-1) 
XI=EFI/1000.0 

IFUEM FETHPOO. 4) Gd, To, 370 

YT> (¥ 1474) 72.0=0.1 
GO 1C 315 

YT=Y¥4/2.0-0.1 

YIU=Y1+0.07 
CALL SYMBOL (X1,YT,0.1,'EI=",0.0,3) 
CALL NUMBER (-0.0,-0.0,0.1,XI,0.0,-1) 
CALL SYMBOL (-0.0,-0.0,0.1,'X10',0.0,3) 
CALL SYMBOL (-0.0,YTU,0.08,'3*,0.0,1) 
IF(ISTIH .EQ. 0) GO TO 330 

Ivaar £50200) (cot To? 320 
EST=EI*STKD/1000.0 

YI= (Y6+Y4) /2.0-0.3 

YIL=Y1-0.05 

YTU=Y¥1+0.07 

XT=X540.47 

GATAe SYMBOLE (X14.Y7,,10201,,(8 K%S,,0%-031) 

CALL SYMBOL (-0.0,YTD,0.08,'ST',0.0,2) 
CALL SYMBOL (-0. Y TO ARC =* 0.0, 1) 
CALL NUMBER (-0.0,-0.0,0.1,EST,0.0,-1) 
CALL SYMBOL (-0.0,-0.0,0.1,'X10',0.0,3) 
CALL Sls 0. é YTU, 0.08,'3',0.0,1) 
IF(FM .GT. 0.4) GO TO 325 

XT=XZ+0.2 

VP=v.1-=0271 

GC TO 326 

XT=X2-0.4 

YT=¥3+0.1 

YID=Y1-0.05 

YTU=YT+0.07 

EST=E1*STK/1000.0 

CALL SYMBOL (XT,YT,0.1,"E",0.0,1) 

CALL SYMBOL (-0.0,YTD,0.08,'ST',0.0,2) 
CALL SYMBOL (-0.C,YT,0.1, *I=',0.0,2) 
CALL NUMBER (-0.0,-0.0,0.1,EST,0.0,-1) 
CALL SYMBOL (-0.0,-0.0,0.1,'X10',0.0, 3) 
CALL SYMBOL (-0.0,YTU,0.08,'3',0.0,1) 
CALL LABEL (IP,ISTH,P,S1I,SN,FPM,CY,FP,FM,STN,STND,UM,D,PM,H, PHM, PH 
4IMDL,XZ,X1, WEIGHT) 

RETURN 

ENC 

SUBROUTINE LABEL (IP,ISTH,P,SI,SN,FPM,CY,FP,FM,STN,STND,UM,D,PM,H, 
ee PHMD,X2,X1,WEIGHT) 

1=-0.5 

a0 YT-0.05 

CALL SYMBOL (0.2,¥T,0.1,'M!',0.0,1) 
CALL SYMBOL (-0.0,YTD,0.08,'P',0.0,1) 
CALL SYMBOL (-0.0,YT,0.1,*=',0.0,1) 
CALL NUMBER (-0.0,-0.0,0.1,FPM,0.0,1) 
IF(ISTIH .EQ. 0) GO TO 310 

CALL SYMBOL (-0.0,-0.0,0.1,%, M!%,020,3) 
CALL SYMBOL (-0.C,YTD,0.08,'U',0.0,1) 
CALL SYMBOL (-0.0,YT,0.1,'=',0.0,1) 
UMD=D*FPM 

CALL NUMBER (-0.0,-0.0,0.1,UMD,0.0,1) 
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YT=Y1I-0.25 

YID=Y1-0.05 

CALL SYMBOL (022 YT, 0.1 N#2 02051) 
CALL SYMBOL (-'0. 0, YTD, 0-08, "PC*s 0. 0; 2) 
CALE SYMBOL *(-'0. Ce YT, ‘0% 16° ="2'0" 08 1) 
CALI NUMBER (-0.0,-0.0,0.1,EM,0.0,1) 
PGS. cO.s 0)" GO TOMS 20 ; 
CALL SYMBOL (=0:0,-020502 1, °)-M#>020,3) 
CELLP SYMBOL (-0.0,YTD,0.08,*0UC',0.0,2) 
GALT SYASOL (-02 05777024, 82°37 0% 051) 
CALL NUMBER (-0.0,-0.0,0.1,0MN,0.0,1) 
YT=YT-0.25 

YTC=Y1I-0.05 

YIU=Y1I+0.07 

CALL SYMBOL (OV2, YT; 0A; 367 0.05=1) 
CALE SYMBOL (=0.0;, YTD; 020892 P*F 05054) 
CALL SYMBOLY (-070;, YT, 020, *=",0.0, 1) 
cCYC=CY#1000.0 

CALL NUABER (=02 07 -070;,0% 1,CY07 6.0% 3) 
GALL SYMNBOL* 4-C707-0.0,0.1,°xX10',0.0,3) 
Cann oy MbOky (-0705 790, 0508, "—-3", 0.0, 2) 
XSA=X2Z-X1 

PP LSTHYs BO.) 0) GOF TO 330 

er OXS Ams Ls) O'S) =GOMLON325 

Sie Seb MOs (SOs Wy Me nOo etn YeOsOnZh) 
(Ci IG. SUeMeONG (Eg Dam WoW 6 Wn Ole} 2SYU 5OaO, 1h) 
GALT*=SYMBOL (=020,-0.0,0.1,36,0.0,-1) 
CALLE SYMBOL (—02 0% YD, 02.08)" Pt, Oe Opt) 
CINE SAWOI (W5 Oye 5 Wo Ip USSU HU 50, 19) 
CALL KUMBER (-0.0,-0.0,0.1,STN,0.0,1) 
CALE SYMBOL’ (=C.07=-0.040.1,36,0.0,-1) 
GALL SYMBOLE(—02 07 YTD, 0.08, "PS, 0. 0, 1) 
Cite SNOUT (S05 O65 MHD IG py Yp@sO pA 
CELLO OY MBObT(=02 07-0050. by 3090.07 —1) 
CALL SYMBOL (-0.0,YTD,0.08,'U',0.0,1) 
GALE SYMBOL. (=02 CA YT? O02 17.=97902 021) 
CALL NUMBER (~0.0,-0.0,0.1, FHM,0.0,1) 
CALL SYMBOL (-0.0,-0.0,0.1,36,0.0,-1) 
CALL SYMBOL (-0.0,YTD,0.08,'P*",0.0,1) 
ZTECTPELEO. 10) GO 'TO°340 

YT=Y1-0.25 

YTID=Y1-0.05 

YTU=YI+0.07 

CYL=CY*FM*1000.0 

CALL SYMBOL (0.2,YT,0.1,36,0.0,-1) 
GARE SYMBOL (<C20F7YTD70208, *Pe* 705072) 
GALL SYMBOL (=O. OFYT7 02 17 f=" 707071) 
CALL NUMBER (-0.0,-0.0,0.1,CYD,0-.0,3) 
CALL SYMBOL (-0.0,-0.0,0.1,'X10',0.0,3) 
GCREL SYMBOL” (-0/07YTU,0.08, *-3',0.0, 2) 
IF(ISTH .EQ. 0) GO TO 340 

TPUXSAPSL IS Oc3y GC TO? 335 

SU=SINC/FM 

GREE SYMBOL (+007 YT70.1,", ‘,0-0,2) 
CALL SYMBOL (-0.0,-0.0,0.1,36,0.0,-1) 
CALL SYMBOL (-0.0,YTD,0.08,/ "ST" ,0.0, 2) 
GREE SYMBOG=(-0.07YT,0.1,'=',0.0, 1) 
CALL NUMBER (-0.0,-0.0,0.1,SU,0.0,1) 
CALI SYMBOL (-0.0,-0.0,0.1, 36,0.0,-1) 
GALE SYMBOD *(-02C7YTD, 0.08, *PC*,0.0,2) 
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CALL SYMBOL (-0.0,¥T,0.1,%, *,0.0,2) 
CALL SYMBOL (-0.0,-0.0,0.1,36,0.0,-1) 
PALIOSIMBOL As Ce UsY TD, 0-065°UC! ,0.0,2) 
CALL SYMBOL (-0.0,YT,0.1,'=',0.0,1) 
CALL NUMBER (-0.0,-0.0,0.1,SU,0.0, 1) 
CALL SYMBOL (-C.0,-0.0,0.1,36,0.0,-1) 
CALL SYMBOL (-0.0,YTD,0.08,'*PC*,0.0, 2) 
YT=YT-0.35 

CALL SYMBOL 

YI=Y1-0.6 

CALL SYMBOL 

13) 

CALL SYMBOL (-0.0,-0.0,0. 145,43, 0.0,-1) 
CALL SYMBOL (-0.0,-0.0,0.145,37,0.0,-1) 
CALL SYMBOL (-0.0,+0.0,0.12,? 

CALL FLOT (0.0,-0.25,-3) 

CALL SYMBOL (4.3,-0.6,0.1,"UNIT OF FORCE: 
CALL SYMBOL (4.3,-0.85,0.1,'UNIT OF LENGTH: 
GAd IpseLOTwa( 0. 5,000, 3) 

Cie eLOl (5.3 020,2) 

CALL ELOT(4.8,0. 0,3) 

OALIG ELOY «(4.8 ,1¢8,2) 

SRC LP LOD (hes lads 2) 

CRUIMELOT (ue 97050 52) 


DO 350 I=1,10 

XT=4.5+0.07*FLCAT (I) 
CALL SYMBOL (XT,0.0,0.1,15,-45.0,-1) 
CCNTITINUE 
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FLOT 
ELCT 
ELOT 
ELGT 
PLOT 


SYMBOL 
SYMBOL 
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SYMBOL 
SYMBOL 
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FICT 
ELOT 
FLOT 
ELOT 
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CALI FLOT (5.3,1.8,2) 

CATIMLICT. (5230.9; 3) 

CALI ELO?. (5.3.0.0, 2) 

CAUIMELCT M5527, 0-67 72 

CALI EFLCT (5.33,0.07,3) 

CALL ELOT (5.3,0.0,2) 

CALISSYMEOL a(5224 10 1,05 le Lets 0. 0r 2) 
CALL NUMBER (-C.0,-0.0,0.1,H,0.0,-1) 
CALL SYMBOL (5.4,0.5,0.1,'W",0.0,1) 
CALL NUMBER (-0.0,-0.0,0.1, SN ,0.0,-1) 
CALL SYMBOL (-0.0,-0.0,0.1,'X',0.0,1) 
CALL NUMBER (-0.0,-0.0,0.1,WEIGHT,0.0,-1) 
CALE SYMBOL washes U } 0. 255 0- detain 70» 042) 
CALI NUMBER (-0.0,-0.0,0.1,S1,0.0,1) 
CALL ELOT (0.0,0.45,-3) 

RETURN 

END 


FUNCTICN IFOX (X) 


IF (X 


sLT. 0.0) GO 10 100 


LFCX=1FIX (X) 
RETURN 
IFOX=IFIX (X)-1 
RETURN 

END 
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Appendix C. 


DERIVATION OF MODIFIED SLOPE DEFLECTION EQUATIONS 


The standard slope deflection equations have been mod- 
ified in order to accommodate the special end conditions 
incurred during the modeling process of a frame for the 
dynamic analysis, as discussed in Chapter 3. In the model, 
a member end is restrained by a rotational spring. The 
member end may also consist of a rigid stub, as shown in 
Fig, 3-8. The final formats of such equations are shown in 
Eqs. 3-5 and 3.6. The derivation of these equations is 
shown in this appendix. 

The sway rotation, p, between points a and b in Fig. 
3-8 is temporarily assumed to be zero. If the joint rota- 
BUONSHAtspDOLits a ander anc on and Oh. respectively, the 


end rotations of the member cd at points c and d are 


BG eeteec ds alee 
a a. 
i 
and 
=, am Mac ®o 
b O 
2 
respectively, as explained in Eqys. 3-3 and 3-4. If p is 


zero, the sway rotation between points c and d, Vesa is 


given by: 
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Therefore the end moments, Moa and Mao! are expressed by: 
Mog = 2K f2t0, - S92) 4 9, ~ nae 2) 
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Aq 82 4+A50 
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where K, Coa and Cac are as’ defined in Eqs. 3-23, 3-7 and 
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d 618K d 
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where A, is defined incEq#9#3=22, 
The end moments, M and M__, and the end moments, M 
ab ba cd 
and Moor are related as follows. 
In general, shear forces at the member ends (see Fig. 
C-1) are given, ignoring the secondary moments produced by 


axial force, by 


eat 1 J 
vases) 1 
Qs = - 7 (My +M,) - 5wLh (C-6) 


Here the uniformly distributed load, w, is assumed to be 


applied throughout the member length, L. Therefore the 


shear force at the right end of member ac, anes is 
a 1 ab 
Qac ae Kg west ee! gwAgh 


and the shear force at the left end of member cd, Qaar is 
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The equilibrium condition at this point requires that the 


above two shear forces are the same. Thus, 
oy il 2 
Mob a Mod u X3 Mca*Mac? ¥ BWA, (1-AQ)L (C=7) 


In the above, the equilibrium of moments: 


M + M et) (Cc-8) 


is used. A similar process at point d yields: 
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equations, the relationship, 
(S12) 


was used. 

If the sway rotation, p, is present, the end moments, 
Mop and Mio? will be expressed in the forms shown in Eqs. 
3-5 and 3-6. The end moments observed when the joint 
rotations at both ends of the member are zero and only the 
Sway rotation, p, exists are the same as the moments observed 
when the joint rotations at both ends are equal to -p and 
the sway rotation is zero. Therefore the coefficients of 
pr Az and a in Eqs. 3-5 7and 3-67 respectively; are given 


by: 


and 


i] i] 


as shown .in Eqs. 3-14 and 3-15. In other words, Eqs. 3-5 
and 3-6 are the expressions for the end moments under an 
arbitrary member position as,shown in Fig. 3-8. 

The lower ends of the bottom story columns are con- 
nected to the foundation through elastic rotational springs. 
The slope deflection equations must be modified to accommo- 
date this situation. The derivation of modified slope 
deflection equations for this case is, however, similar to 


that shown above, thus the explanation has been omitted 


here. 
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Appendix D. 
COMPUTER PROGRAM II 
D-l Descriptienwofe the Program. 


This program has been developed to perform an inelastic 
dynamic analysis of a multistory, multibay frame subjected 
to either a blast load or an earthquake motion. The proced- 
ure employed in the program complies with the statements 
made in Chapter 3. 

The ee relationship must be prepared beforehand 
for each member end. This may be done using PROGRAM I 
shown in Appendix B. In the present program, the input 
statement is made by assuming that the initial we ie 
relationships are the same at both ends of a member. The 
data describing the external disturbance may be input 
EnLOugnmas deck, Of Cards Or. tnrough ay file wstoreamin: the 
computer disk. 

The results of the entire response may be printed out 
or may be either punched out or stored in the disk so that 
tie results can be plotted by CalComp. Plottersusing alnro— 


gram written especially for this purpose. 
D-2 Input Data? 


Card Group 1: NS, NB, NCAL, MXIT, NTOBU, NSAI, LTP, 


234 


cis 
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besvetdue smaxt ysdislum ,yroseisium 6 to slayiens obmsnyb 
~besorg eff .nottom odsupiitzss ns to beol tasid 5 — of 7 
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tuqnt odd ,mexpoxg tneeexq pdt nI .a xibneqqaé ak nwode 
500-_M Ist¢inkt oft tadt primueas yd obsm et stasmesjstsa 
adit .sedmem 6 20 absris diod 3s omse oft ots eqiienckisie: | 
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ies «gute 


235 


IGPH, TIMELT, DELGAT #*GOSA.. Hlitelhknputreteniaters O06D5, 0X, 


3F10.0). The numbering convention and other symbols are as 
defined in Chapter 3. The variables used here are as follows. 
NS : Number of stories (No), 
NB : Number of bays (Ni), 
NCAL : Number of integration steps, 
MXIT : Maximum number of iterations allowed for 


each step of integration procedure. 
(20iretMx Tin 350), 

NTOBU : Results are printed out for every NTOBU-step 
Of integration, 

NSAI : Number of subdivisions. If there is any 


B 


change in the value of dj, Byr Gy, Or B. in 
the modified slope deflection equation or 
if the convergence was not obtained, the 
integration is done for smaller time incre- 
ments: asifspecirt tediibyiit his tes( 2x INGATt eS) 
LTP >: Type foi external disturbance. 


GEE 4 ... Barthgquake 


lA 


LTP 5 eS, Stbikast) Goad 


1V 


IGPH ~:9) imidijicates the type of output: 
IGPH > 6... Results are printed out; however 
they are neither punched out nor stored in 


theltdiisk . 


es es elodmys xei20 bas pit seemews | 
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sqaue to eqy? eft saben ’ 
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-Aelh enlz 


TIMELT 


DELTAT 


GOSA 


2256 
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1 ... Results are punched out. 

IGPH = 2... Results are stored in the disk. 
Two files must be created in the disk, and 
the output code numbers must be assigned in 
the following manner. 

2 = file name 1 

3 = file name 2 

In the file name 1, entire behavior is 
stored; and in file name 2, the maximum 
values are stored. 

This value must be equal to the prepared 
totale computationrtimesminustG.8 ora On 4xmin-; 
utes. If the total computation time assigned 
for this job is not enough to perform all 

the response calculation, the response cal- 
culationgisacut off after TIMELT) (min).cis 
spent, and the maximum values so far obtained 
eret printed ouljpande the, resultsestoredqin the 
disk are saved in the tape. 

Incremental time step in the integration step 
(Mt), 

Convergence limit. It is usually adequate 

to specify this value between 0.001 and 
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Card Group #23) SteMimeGch, SECO,  TDISG, *THAIL. @TOWA. 


FORMAT (3F10.0, 


EM 


hk Cas 


THAJI and 


Oy a ee 0°02. 
Modulus of elasticity (E) 
Acceleration of gravity (g) 
Input data of external disturbance is mul- 
tiplied™*by- Chis value. “li fehe Wnpur data 
for an earthquake is prepared so that the 
maximum value of acceleration is equal to 
tie yacceleratronsoLegravity, schLCO corres 
ponds to the seismic design coefficient in 
PS Udo Vommanaky Stet = ike Pirem input Catal .oG 
a blast load is prepared so that the maxi- 
mum value is 1.0, SEICO shows the maximum 
toad tae enesstandardy floor: 
Indicates if the data describing the exter- 
nal disturbance are input through a deck of 
cards" (PDISG*s *0)9**or *enroughita fitve**s tored 
Prpeeiierd1 Sie" Chl SC =O) eee Peenetdd ta wale 
given through the disk, the file must be’ 
called by the input code number @. 
LOWA ST newresurtLs LOmeevery story are 
printed out regardless of the indication of 
TP(i) (See Card Group 4) for the time period 
from THAJI (sec) to TOWA (sec). 


If these places are left blank, the function 


; 0. Ge. RONres cele ae 


(3) ytiottesls to auiubom 

(p) ytivexe to nolssxeLe004 

~{um ak sonsdrugetb Isnzesxe Yo sie5 sugqat 
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mumixem edg ewode OOIge ,0.L bt owlev mum 
.200Lt brabaste eft te Heol 

-sst¢xe oft pnidkuisash sssb oft 21 2ats80Lhn1 
to Xosb s dpuoxdt toegqni ox sonsaduytelb Isn 
berote efit s dxptvordt tO (0 ®& DOBTAI) abxso 
915 stab oft 22 .(@ = OBTGT) Aeib ode ni 
‘ad tagm oft? edt ,Aetb ort Apuords novip 

- .b sedmyn shoo guqnt srit yd beliso 

ets yrote yieve rot etfivesx eT <: AWOT 

to noiseotbni: eft to ezelbuspex tuo besulig 
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is ignored. 
CardsGroup Crean 6B.ig)),. for j= 1 to N° FORMAT 
( (QP2 Or 07). 
SB(j) : Length of the j-th bay (from column center 
to column center) 
CaronGroupe4:) | FOr ms tO Nay SMC) ya (eae SH is): 
ITP (idee FORMAT «(3 F005 Osaet5)e 


SM(i) : Weight concentrated at the i-th floor 


Cm x sq) 
Pd) Green Dampinge factor Ch, ) 
SHigogmee Storyaheioght of the i-th story 
IP(i) : Indicates if the print out of the result for 


they yethepel oor sprequined aP(ijep Ody or 
nots (UPdag- eee 
CardaGroup: 5£j¢ For) a = 1 to Nei REG aye ecole men LaLO 


Not lL. FORMAT. .((8F 1:05,0) )% 


b 
RP(as,j) PGeMbengthi@fijthe rigid stub at the right end of 
the beam at the i-th floor and the j-1l-th bay 
which is assumed to be equal to the length of 
rigid stub at the left end of the beam at the 
i-th floor and the j-th bay. 
Card) Groupiiestedt O27 ip=ineito Noi BMI (d,s) ,p Gor Je=; 1) bo 
Ny: FORMAT ((8F10.0)). 


BMI(i,j) <= Momentpof imentiagot the beameat the a-th 


flioom, and, thesg=thj bay. 


ape 2 pte Ame aegis : oe 
TAMAOT gH OF £ = ETON. (LEE g€ QuoND BEB ee 5 
% be we, JO Bihan (0.0078) ) 

tejneo nmuloo mort) yed dt-t oft to dtpmed : (t)de 

(xetjneo amutoo OF 

(4)He yh), (4)M2 3K oF I = £ 10% 3% quozd bisd 
(21 ,0.OL9€) TAMAOD . (4)4T 
¥ool% dd-i odd ge betexgnsonco sdptew : (Ma ” 
(ex 4 
(ya) xojosi paiqmsd 
yrote dz-i adt 20 teptend yxose =: (£)He 


(£)8 


tot sivas1 add to Juo tning eft 2k eetspibnI =: (k)49T 
to (0 ¢ (£)9I) bevtops2 ak sooli Ag-k ont 7 
thee (£) 41) tor 
of f= { t0B .(tytldt y,Mood L = £ ot 22 quozd bred 
j | -((0,0L%8)), TAMIOT .f + QM 
to base sdpiax odd te dute biphs edt Io dtpmeld : ({,£)9R 
yad dt-L-¢ oft Bas, tool? dt-i elt 38 meed, od? 
Io dipnel end of Ieups ed ot Bbembess el doldw 
efit t6 mead eft to Sne g3eL edgy ts dute Dbipix 
yee? d4-¢ efit bas xo0l? di~s vais 
od L = t 408 , (tsi) IMa iM ed £ = & 20% £2 quoxd bred 
+((0,04£38)) TAMAOT «Ml 
dd-£ ocd +6 maod odd YO stdnent to tnomom : (£, t)IMa 
-yad fg-€ ed? bas tool 


aap tse j 
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Card, GroupTiie nEor resatito Noi GMi(1 ba) patouija=.1 to 
Ny + 1.5 FORMAT ( (8PRORG) 
CM InGiur |) : Moment of inertia of the column at the i-th 
stony vandithe|j=ath row. 


Card Groupesa eShRiiip for 7 = 1 to Ny te 1 FORMAT 
((8Eb050).) . 


SER(i) paeeSpring constant oftthe sfoundationratathe 
bottomiotwehesjeth column. (for fixed end 
30 


> 91. 0 Os 71:0 oh) 
CarG@eGroup 92 thom 2 =PiREO Noi WRC), tor 4 = 1 
se) Np: FORMAT ((8F10.0)). 
DL a) : Uniformly distributed load applied to the 
beam at the i-th floor and the jmenTbay ? 
CavrdeGroup skO: 4 Rartea;: HEKUTSUPONES(K) i Afor yk = L to 


TKUTSUSe EPORMAT 84.61.6155) )y- 


Part ib; ¢TBMPO <i) 7 tEor Ger #l to £65 
SLPLS (k).. FORMATS (7E1L0.40));. | 

IKUTSU : Number of members which have the same 
M7698, relationships. 

NES(k) : Member number which was referred above. 

TEMPO (i) : Temporary variable. Used to show the coord- 

imates: of poimtrs AprBwandhC rinykic. e329 punces, 
GREMPO (lppHTEMPO(2)) 2... ‘Point A 


(TEMPO (3)s;eTEMPO (4))). oh. #hRoint B 


CTEMPOMGS PAeTEMPO (6) ) <... Point C 
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TAMAHOG ‘+ geod L = [| 202, (byte 76 quot) S189 - 
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The next relationship must be satisfied. 
TEMPO(5) evTEMPO(3)r >i TEMPOXKA) >n0 
If the theoretical value of TEMPO(1) is zero, 
a value like 1.0 x 0ae should be input in 
the computer. 
SLPLS (k) ; OuantitycatiodefinedhinnEgq .d2=48% 
Part a and part b are repeated until the M,-56. relation- 
ships are input for all members. 
Card Group 11 (Only when LTP 2Us;oines , forvbilast load) : 
CoMiti); LOL. ane LO No: FORMATS ((8F10.0)). 
CSM(i) : The i-th element of vector {r } which is 
defined 'in Sec. 3-7-1. 
Card Group 12 (Only when IGPH = 1 or 2): MSKIP, INSA, 
NPCH, + IPCH(j), for j = 1 to NPCH. © FORMAT: (1015). 
MSKIP : Results are either punched out (if IGPH = 1) 
or stored in the disk (if IGPH = 2) for every 
MSKIP-steps of integration. 
INSA : Indicates if the print out of results is 
réquirede(INSA 265)onenoti(INSAisn4) 
together with Birenea out cards or files 


stored in’ the disk? 


NPCH : Number of floors for which results are punched 
outey F(NPCHS& 5i)x- 
IPCH (35) : Floor number for which the results are 


punched out. 
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If IGPH = 2, neither NPCH nor IPCH(j) need to be 
specified as the results of every floor is stored in the 
disk. 

Garg Group Sb2 VeSismn (1); stor i= 1) to 20 FORMAT 
(20A4). 

TSE (1) : Identification of external disturbance. 

Card GroupsVsy SCA; PPeiornySs=wieto NCALApSsRORMAT 
CCJE10.0)) 2 

GA(j) : Data of external disturbance. Seven data 

are input at a’time: 

some general remarks are listed as follows: 
1A One unit each for length, mass and time should be used 

throughout the preparation of!’ data. “As far asrthis 

regulation is observed, either customary (English) 
system or the SI (international) system may be used. 
24 PEATDISC*= 0OSan>Cards§Groupr?2 ,Prhetdatavgivennhinecara 

Groups 12 and 13 are assumed to be stored in the disk 

in the same formats as shown here. 

Shy Total time for which the response calculation is per- 


formed is NCAL X DELTAT. 


D-3 Presentation of Results. 


The results of response calculation are presented in 
various manners according to the specified values of IGPH 


and INSA in the preparation of input data. 
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(1) Those which are printed out regardless of the values 
of IGPH and INSA. 
ahs First three natural periods and the smallest 
natural period. 
Ds Locations of member end where inelastic action 


was experienced. 


ah Locations of member ends where collapse was 
indicated. 
as Maximum values in displacement relative to the 


ground, displacement relative to the lower floor, 
velocity relative to the lower floor, absolute 
acceleration, resisting force due to damping, 
resisting force due to frame action, shear coef- 
ficient and the total (damping and frame action 
combined) resisting force; for every floor. 

(2) Additional results which are pM HEed out when IGPH 2 

GUMOmeLGPH a= Storm? ahd siNSALes 5¥, 

e. Displacement relative to the ground, displacement 
relative to the lower floor, velocity relative to 
the lower floor, absolute acceleration, resisting 
force due to damping, resisting force due to frame 
action and shear coefficient; for the specified 
PlOOrS= Dye LEG) ), Lor every NTOBU=stens sor inte 


Guacwon. 
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(3) Results which are punched out when IGPH = l. 


ir 


Floor number (counted from the bottom--only in 
this case), time, displacement relative to the 
ground, displacement relative to the lower floor, 
velocity relative to the lower floor, absolute 
acceleration, resisting force due to damping, 
resisting force due to frame action and shear 
Cootii1clen Ly mroL the SipeCitil eds GLOCrs yoy Ch tae 
for every MSKIP-steps of integration. The out- 
DUCSTGrMateacie lor a On oak ed O noe. 

Maximum values in SE relabives Lomtne 
lower floor, the time it was recorded, velocity 
relative to the lower floor, the time it was 
recorded, shear coefficient and the time it was 
recorded; for_every floor starting from the _bot— 


tom. ))The output format is(3 (1PE10,4 40 PELO23) )- 


L 


(4) The results stored in the disk when IGPH = 2. 


h, 


The same variables as listed in article f above, 
by) EhewsamenOutputeLOrmat;mexcepi thats chey sare 
recorded for every .floor. 

The same variables indicated in article g above, 


by the same output format. 


. 
Fi ; 7 


| | | 7 on a 
Aine s ssiadeidantaaabasldeds 


bi 
ai ylao--mostod sd4¢ mort boetnauos) somitioctte ae 


sta of evistelox tnomposiqetb ,omit «(9aso° etds 
,tool2 xewol erly of evitsler taemecslqeib ,bayoxp 
siuloede ,xsoolt rewol ort of ovisslex ysioolev 
,pnigmebh of sub oo103 pnitetacr ,noizezelsoos 
issde bas noizos emsx2 of evb so103 pnitetesx 
,(£)HO9L yd earoolt betitosge ons tot ;tneioiiises 
“tH0 eff . .noltstsipstnt to agota~I14eM yteve 10% 

| (E.OL8TIL ,€,8% ,S1) ef temxod sug 

eit of svitelor tnemecsigaib mi eentsv mumixsM 
ytiveley ,behrooer esw ti omits ofd yxoolt rowol 
esw tk omit eft ,z00Lt tewol oft oF ovissier 

easy ti amit odo bas gaetoitiseo yserts «bebrones 


-tod ord mort paltusse teolt yreve 102 ;bebioper 


- ((€. 00990, .b. OLGTL)E), ak Jsmrrot Juqsvo eAT .moz 
.$ = H@OI now aAeth edd ot bexose etiveor of? 
rel 


,evods 1 slotazxs afr beteil es noldsizev amse oT 


ote yodds tadd tqeoxe yJenrted Juqtuo emsa ods yd 


, moolt, ytevs 103 bebtopex 
,svods p olotets ai hbetsobbat aealdsizev omee oT 
| .t6mT0R tuqeuo omse odd yd 


os 


an er 2 a + fan 


en td} 7 ie 


Lin 


“PB 
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Description of Subprograms and Flow Charts. 


MAIN PROGRAM, 

Description: MAIN PROGRAM is functioned to set ini- 
tial values for some variables and to assemble 
subroutines. 

Ca LlSes LIME,  OAKURA =o. LY i me oHUKL | hiKUSs anc rd dot LiNe 

Flow Chart: Shown in Fig. D-l. 

Variables in Common Statements (in order of appearance) : 
NoGeND OU) or i) cs lo) eee Ree Ie) he PU DIUAds, 4) ano 
SLPLS(i) < AS explained in the preparation of 

input data, 

STEAL) : ot rides of the i-th member, 2EI/L, 
where L is either column length or bay 
length (column center to center), 

TOP (ih 4) : Bindicates if, in the emo e relation- 
Ship in Fig, D=2, branch $2 exists (1OP-= J) 
or has been exhausted during the process of 
reversals of loading and branch #3 comes after 
branch #1 (IOP = 2); at the i-th member and 
the j-th end. End number 1 indicates the 
upper end of a column or the left end of a 
beam, End number 2 indicates the other end, 

ON yh) 7 Similar COn LOG yt jel Od Cabese dL 
branch #4 still exists (ION, ="1) or has, been 


absorbed (ION = 2), 


-int $98 04 Nee al MAORI ‘anit at eee 

eldmeeas o¢ bas sofdsizsv emoe 10% aoulev ‘Ista 

| | |, penttuordue 
utuett Bas UATH ,TavWe ,THPTe \AdUMAR \EMIT “sells 
-f-@ .pit at aworle tdxsdd wolt 
:(eonsissqgs to tebio ni) adnamedst2® mommoD at eefdstasv 
bas (t,t)d00 ,(t,é)9n , (kee , (img , (i)He em em 
to noldstegeig sit ai bentsiqxs eA : (k)eqaae 

, 6365 sueqetd 
<T\ISS ,xedmem di-i sit to seactise : (kare 

ysd so dépiel nmuloo tz9dtis ef I stedw 

, (4earten of: r6taso nmuloo) dipnel 
-~notisiex ato M adi nit ,ti eeteoibar : (t, £)40T 
(I = 4Or) evekxe £4 donerd .S-4 pit ai atie 
to easoo1g odd pnixub betewedxs nased esd x10 
19Jts asmoo €4 fonsid bos paibseol to efLsaxevert 
bos swsdmem di~t ofS te {S$ = GOI) Lt clomexd 
eit eetectbni | tedmun bad .bae At-f¢ edt 
6 to bao sYel ovis to rimless 20 bas xeqqu 
,hate tenio eds eagsokbat © asdmen bag .msed— 
tt aedwotbnt ;(¢.t)S0% of aehimia : (t,t)uOr 
need end xo (f = UOT) eveine Lihte tf donszd 
| WS = Wor) bedzoeds 
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SLPd,)lee Voslortee Aaspappearsorme Eqs. 3-3 and 
3-4 for the i-th member. If k = 1, the slope 
of branch #1; if k = 2, the slope of branch 
#2 or #4; and if k = 3, the slope of branch 
#32 Ori Sati nee gto D22i, 
BETA (ajgo lo rat a asi appearst invEg!.) 3=3iand 
3-4, for the i-th member. Subscript k indi- 
cates the branch number as shown in Fig. D-2, 
Tle TAK Ws, : The value of 66. atipointssda,, B, 
C, A', B', and C', respectively, correspond- 
ing to k= 1, ... 6 at the i-th member and 
the j-th end, 
IMA(i,j) : Indicates the branch in the Mto6. 
relationship where the present values of 
(Mo, 68.) lie, at the i-th member and the 


j-th end. If they are on branch #1, IMA = 0; 


ie on brahchigs2> eeMArS> 1660 ficrgibranchy #3, 


IMA = 2eeaf on branch? 44 ,) IMA = =byprand if on 
branchtls5 DelMA ie2y5 cin Faig.+ D=2;, 
PMO (i,j,k) : The values of M. at points A and 


A' in Fig. D+2, for k = 1 and 2, respective- 
ly, at the i-th member and the j-th end. 
HXD(i) : Vector {&} defined in Eq. 3-28, and 


HNL(i) : Vector {n} defined in Eq. 3-28. 


ee 


donsxd 29 egote oid yf = 4 24 bas wht 20 SH | + 
«8-0 .pit nt ee to fF 7 

bas €-€ sp di exsoggs ae ,2 : (Aye t)ATEE a : 

~ibat « Jqknowdor .xedmem dj-t oft 10R BE Th 

S-d .phT at aworie em xecimin donexd oft 9989 4 | 

(4 \& adntog 4s 286 Yo eulev ait: (yt t)ATaRT 

-bnogaeri69.,ylovitwogeer ,'9 bas \'E "AD 

iris tedmom dJ-k edt $e 8... f = A0d pat > 

bn dt sde y 

: | 


-0o-,M ont af flonsyd ed3 aetsoibal ; (fy t) AME 

to seulsv dneeetg sid esorw gidanoissilert : 

add bas rodmam dd~b oft to yohl (08 QM) 9 syy/ 

(0, = AME 14% dometd ao ote yeds 2% bas d3-f a 

0% domsad wo '%t ;L = AMI ,S# dompad no 2t 

no ti bas yi~ = AME . bt donexd no Ti 7S = AMI oa 
\S-@ .pkt at ,S- = AMI ,2# donsad 

bas A etatog 36 .M 20 zeulev ed? : (A, t,£)0Ma 
~evisosgqess ,S bas L = A 20% S40 «phd at 'A 
.bas tid-t eft bas xedmom dd-t ott 28 yl 

bas ,8S+€ .p% mt bontteb (3) zodvev +  (t)axH 

-®5-£ .pl nk boakieb {n) sotoey + (4)amK 
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Other Variables (Only the important ones): 
GOSATANCALPAMMETSeNTOBUY NSALT ,OGRS°DELTAT, SEICO, 
EP(i)}) THAJT? “TOWA, LTP) “IGPH and’ IDISC’* +> "As 
explained in the preparation of input data, 

C(ayt :MAldentical to H(i) as explained in ‘the 
preparatzon Of input data until KIKUTis 
called; thereafter, c,; as defined in Eq. 
3-29, 

SM(i) : Mass concentrated at the i-th floor, 

CSM(P) 7: CSM, as defined in Eq. 3-35 or “CR; as 
defined in Eq. 3-36, depending upon the type 
of external disturbance, 

ITIME : TIMELT expressed in terms of milli- 
seconds, 

TA : Number of unknowns (dimension of {6}) in 
Eq. 3-24, 

O27. FPO: PeSELE ness smatrie [Gt -in*hg 73-28% 

Aiv 3) 4: eMatrie f—RiVin bot s-249"*stored Tor 


oniy=the band@widtneol+2Neet +37 


b 
TSHUT : Indicates if the Gaussian elimination 
process was done without having numerical 


problems (ISHUT = 0) or not (ISHUT = 1), and 


GOME  : 1/0), where W, as defined in Sec. 3-7-1. 


,OOTk2 ,TAMIAG , AD 142m Dao  TIXM peepee 
eA + Dal0Y bos AdOT Itt ,AWOT ,TUAHT anyar 
ssh tugak 20 nebtezeqeiq ft at benisiqxe - 
od at bentstqre as (t)H ot fsotsmebTo ¥ © (4)9 
ak UREA Lidaw s36b tuqni Yo noivsisys1g 
-pa nk bentteb es 2» ~tettserents ;beliso 
\QSHE 


7 
7 
: 


” 


, rool? da-i es 38 hacdianeniinn 2esM +: (£)Me 
a6 ,AQ~ to C&-E «pe ag bentieb es Med + (£)M29 
eqy? oft noqu patbaeqeb ,a€-€ .pa ai bentieb 

,sonsdivteth Isazedxe to 
~iffLim to emxed oi beeeerqne TEEMIT + aMITT 
4 ,abnovea 
ni ({8) 20 nodenomth) enwondau to 1sdmuv 2 Al 
, BSE .pa 
,BSKt “pa nk (2) ciageam eeenttive « (£,1)0 
tol bexose .BS-£ .pd mt (A) ofstem +: (ft. L)A 
,E + as to Asbiw Bned ot yino 
nolitenimife nsieevsd srt Bi eetsoibnl : TUHET 
isokremun pnived juodsiw enob esw eac0c%g | 
bas .(L = TUHeD) jon xo (0 = TUHET) emeLdorg ’ 7 
.f-f-E .o98 ot Bontieb es ; etodw .,8\l + | aMOD 


(2) 


(3) 
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SUBROUTINE SAKURA 

Description: SAKURA reads in most of the input data 
and prints out the important frame properties 
necessary for the identification of the problem. 

Called By: MAIN. 

Flow Chart: Omitted. 

New Variables: 
SM(i) : Weight at first, later converted to 

mass, concentrated at the i-th floor, and 

TEMPO(i) : Temporary variables. 

SUBROUTINE STIFF 

Des Crp Clon tS Ul Bratiise Gal led whenever-a Miewisiiftiness 
matrix [G] as in Eq. 3-28 is necessary to be cal- 
culated. Matrix [R] as in Eq. 3-24 is constructed 
by callimgorusines LUsdecomposit ion MGaussiantiiel im- 
ination) of matrix [R] using Doolittle's method 
(without pivoting) is performed. Then, by calling 
YURI, Eq. 3-24 is solved for the stiffness matrix 
in the Manner tastidescuibeds im Sec.e 302 

Called By: MAIN, JISHIN and SAIBUN. 

Callsta FUJIMtandawURix 

Flow Char GeomsShown fin ito. leb=3r 

New Variable: 
INIT ¢ < Ailndicatesmist ithisxsubroutine is called 


to calculate the initial stiffness matrix by 


sieb juqus ro dad cieigc ae 
eeltxzeqotq emext jnstiogmi oft suo, atniag bas 
meidorq edd to sottsoitignebi eit 102 yzsenoDen 
»ALAM sya belisd 
bodtio® 121s wolt 
:eeldsiisv wei 
od badiusvno> totel , tert? ge JeoipioWw.: (k)Me 
bos ,xtoolt dt-i oft 26 besextnesn09 ,2eem © 
.soldeivay yrstoqmer ; (£)OUMET 
| quire aurmuosave (€) 
arsnttize won s teveredw belisp ek TIT2 snaoltgiixoesd 
-fao ed of yispasben ef AS-6 «pi at as [9] xiasem : 
betourtenoo ei MS-€ .pa gt es (f] xintsM .betsluo 
-milo osieeusd) noisteogmeseb Ul .1LU0¢, pmatliso yd 
bodjem a’elttifood prteu (A) xixtsm to (motssni 
patifes vd ,ent  .bemxotieq 2: (paisoviq suodsiw) 
xiatsm eaeatiidca add 10% bevioe ek S-E . pa , IAUY 
.S=8-£ .9e8 ob beditozeb as temasm eft ak 
-WGTS2 bas WEHeTU ,WIAM «sy bollsd 
-TAUY bos ILUt :allsd 
6-0 ekD mi mwod? stusd> wokt 
-_ :eldaiusVv wo - 
belies at emiguoxdse abla Bh getsoibal : TIMI 
yd xivzsm eeonti tie Lnivint sds onuent ot 


‘| 


ae ea ; Dales Pa en 
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MANS CING Ten O) Ror not. (INT HL) 


(4) SUBROUTINE FUJI. 


Description: 


FUJI assembles the elements of matrix 


[R] defined in Sec. 3-5-2. The coefficients of 


s) 
a 


and Oy in the modified slope deflection equa- 


tions as in Eqs. 3-5 and 3-6 are obtained by 


Goal ng, 67. 


Called@ By: iS i.URE. 
Calls :jael 2U.. 
Flow Chart: Omitted, 


New Variables: 


VA 


VB 


MA 


ML 


MR 


MB 


Coefficient of ch insECs. 5-5. 0LNs=6, 


Coefficient of 8 


b LneEQ. B-o8Ch.3=6, 


Member number indicating the column which 


connects 


from above to the joint where the 


equilibrium of moments is being considered, 


Member number indicating the beam which 


connects 
Member 
connects 
Member 
connects 
2 ARs 


th 


Ao as 


fromylefineko sucht ayoOmt, 

number indicating the beam which 
from right to such a WOME y 

number th ESS the column which 
from Delawaelo such) a) joint, 
defined in Sec. 3-5-1, and 


defined in Sec. 9 3-5-1. 


-sups notivalieab. ogote Beitibom edd ak 49 bas e eer 
yd bentasdd ers 3-£ bay @-€ .epa ai as anoty = i% 
-USI patiis> 

_,89IT2 syd bolisd ~ 
«USI sells) 
.bedsimO s¢usdd wolt 


:eeldsiisV woh 
a-E to @-E wp mt 2° Yo taetott%eod -: AV ©») 
,a-€ xo 2@-E..ps ni a? to tasiok?isoD _: av 

dotiw amuloo edt paitsotbat sedmyn r9edmeM 2 AM 
edt etarw tntot ed ot a¥ode mozl atoennos 
\boxddianoo pated at adaemom to mubxdtliupe 
doidw mped edt prttsothoi recimen xedmoM + IM 
vdatot s dove of dtef mos? etosanoD > 
fioidw meed oft paissoibnt xedmya redmoM = AM 


OE St CE Ae re atosano> — s ret 
fokdw nmuloo e3 paissoibni aedmun tedmoM + EM: 

\¢akot 6 dova of woled mox? asosnno> vw wale 

bas wore +992 nt beatteb es ky) LAD ae «. 
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(5) SUBROUTINE I2U. 

Description: IZU calculates the coefficients of O5 
and O, in Eq. 3-5 or 3-6 when called by FUJI, or 
those hin “Eq: 7 "G-3 lor \C=4 when tcalled thy KYOTOnesrt 
IZU is called with respect to the equilibrium of 
story shears by FUJI, the corresponding values 
are calculated from the combined equation, Mit + 


) 


M obtained Erom Eqs. 3-5 and 3-6. | The formu 


ba? 
lae used in the actual computation sometimes look 
different than given in the mentioned equations, 

depending upon the values of Oy and Oo + 

Called By: FUJI and KYOTO. 
Flow Chart: Omitted. 
New Variables: 

II : Indicates if the present calculation should 
be*done“using Eq. 3-5 or C-3 (II = 1), or 
Ueinghdaws—-08or C-4 "(Li = 92). es Further, if 
II = 3, the combined equation, Mob + he 
should be used, 

TASHI : Indicates if the member being considered 
isikthetcolumnvofebottom storyr (1TASHICeo=1) Sor 
not? (IASHPa=eb)ignand 

IGO : Indicates if this subroutine was called by 


FUJI (IGO = 1) or by KYOTO (IGO = -1). 


10 , IGF yd aaniuciaekn ae: so 2-€ Sieie pedicel 
+r ,OTOYA yd belles noetlw k-D 10 €-D\. pa at saods 
to mutadtitdps edt od sosqasa dziw beliso ek UST 
esulsy pritinoqae1109 off , TRO yd etsode ytose ‘ 
+ 4M .moitaups benidmo> afd mori betseluolss ems | 
-umto? end? .8-€ Bas @-& eps mori penistdo ‘ed lee” 
wool 2emtssmoe noitssuqmnoo hueion sit ak bees ost | 
,anoistsups beaottaem srt nb nevip mars 4ne1922 Lb 
+o Bas 0 to esulsv oft nogqu pakbroqeb ve 
OTOYE bas TLUT +ya'beLlisd 
-bostimo +3188) wolt 
E eoldstisv wou 
bivode noiwsivolss tnesetq oft Ti eotsothbaT : II 
zo \ (I = EL) €-9 to @+€ .pa pute ‘enob od 
hi ,wodtxrod =. (S = TL) b-D szovd-€ .p® pniev 
vagit + gall «OoAzeup9 Bentdifos ofa f= TT 
 \beew ed bluorie 
beisbtenco pried sedmem oft Bt eeteolbhbal +: ITHeAL 
10 4+ o LHBAD) yrosa mot#ed Yo amitoo ods ei 
bas , (1 = TH@AL) Jon 
yd bel{so esw entdverdva eins Bk asysokbal + Oot . 
. (f+ = ODT) OTOYe yd to (1 = ODT) IWF 
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(6) SUBROUTINE YURI 

Description: YURI assembles the right hand side, {B}, 
of Eq. 3-24 by calling B, and solvesfor {6} by 
calling SOLVE... It then constructs. the,-stiffness 
matrix [G] as described in Sec. 3-5-2. If it is 
thewcalculation of\thes«initial stiffness imatnuix,; 
the vector ing? defined in Sec. 3-5-2 is also 
evaluated. 

Calledheviceesl IP Ee 

Calls ?™ BaandsSOLVE, 

Flow Ghart>ss0mi tied: 

(7))) FUNCTION, B 

Description: B assembles the i-th element of vector 
{B} in Eq. 3-24 by calling UHEN for given values 
efavector {x}. 

CalledyByse@ YURI and KYOTO: 

Callse UHEN: 

Flow Ghart: m.omacted. 

New Variables: 
MA’, Min, (MRy) MBIFRieand RR2eq: frAs defined in 12U, 
IJ : Indicates the element number in vector {B}, 
SXD (i) : Displacement relative to the ground; 

i tennmeacevector {x} ‘defined in Sec. 3-7-1, 
and 


RhaseeCOWaVaerOLatlon, 0, aesecdetined in Sec. e3-5—1. 


_ 
iw _ * 7 - ’ _ be 
' - any) Fj 


RS 7 oe - Rn on . 
a - pay 


(8) PRBS 
vad (od sotaevioe bas .6 pnitine yd RSME pa ’ 
eeoatiive edd atoextenop mens JL | -8Vd02 pabtso 
et dh 22 Bit) ond akinidixensh Nei ivl aiken ay 
\xizism epontizve ieitint edt to sottetuolso eft | 
oats ei S-e-€ .pe@ mk Homiteb (4) sotvev eft 
Tirta, syd belis> 
| : , avdo0e bas. & ells 
.betsimO :txsdD wolt 
) @ MomromuT «(f) 
sod>ov to sasmels ry-i oft eoldmoees 4 :nottqizpesd 


aoulsv nevip xo? WSHU pabiiso yd bS-€ «pant (a) 9 7 
.{x} modtoev to : 
,OTOYA bas TaUY :yd belisd : . 
.“waBU :elisd 
-beszimO :31scd> wold 
 sesldsixsV wot | 

\URI fb beakteb eA > SAT bas (4a AM \AM \dM 4AM 
(8) xovsev Gk sedniia dnomele oft nedsotbat 2 UE 
,basozrp od of ovissiex snemansigetd s  (i)axe 
i-THe 002 ni Hoatteb (x) tostoav ond y.o.k - 

Lan Woe eAs & 4 

Andee ‘<a ehelay enone : - 


a, 


aye 


(8) FUNCTION UHEN 

Description: UHEN sums the rest of the terms that are 
excluded either by or ctermei or Oy term in Eq. 
3-5 or 3-6 when called by B, or the corresponding 
terms in Eq. C-3 or C-4 when called by KYOTO. If 
UHEN is called with respect to the equilibrium of 
story shears by B, the corresponding value is cal- 
culated from the combined equation, Me finta he 
obtained from Eqs. 3-5 or 3-6. The formulae used 
in the actual computation, sometimes looks differ- 
ent than given in the mentioned equations depend- 
ing upon the values of Oy and Oo 

Called By: B and KYOTO. 

Flow Gharts]Omitteds 


New Variables: 


II and IASH : as defined in I2U, 

M : Member number, 

S : Member length, and 

TGOne:TOEndicates if this function was called by 
B- (IGOx=51) teorubydKYOTORAIGO = ml) 


(9) SUBROUTINE SOLVE 
Description: SOLVE solves for {0} in Eq. 3-24 by back 
substitutions. 
Called BY: YURI and KYOTO. 


Flow Chart: Omitted. 


ous jadd emxet oft 2o taex ond emue WEHU vnoldgixoasd 
-pa at mot 0 x0 mit 0 yd sendtis bebyloxs 
onibnoqass1em edd xo ,@ yd beliso now 3-€ xo CHE 
22 .OTOYA ye bellso new dD 10 6-90 pa nt ames 
lo mukadittups ed of toeqauss ditw beliso el WaHU 
-iso et eulsv patbnogesirx0> edt .d yd arsee yrose 
‘gett + aig! , foLsteupe benidmos on3 moxt betel 


Caan oa * 
q 


bsew esiumrot sit .a-E— to e-£ apa mort benissdo 
~tetiib extool eemidesmoe ,nottstuqmoo Isutos eds al 
-bnsqeb enotisups bemoisnem oft ni nevip asdt dae 
“oP bas fag to esulsev ont mnogu pnt 
OTOYH bas @ rye belisd 
.bostimO :t16dD wold 
:eeldsixsv wot 
,USI at bemkteb es +: HAL Bae IT 
,zedmun 1r9dmeM « M 
bas ,dtpaesl 1tsdmeM +: 2&2 
yd bellso asw noistonut etd? ti eetsoibaI +: Oat | 
s(f-= Od2) OTOYA yd to ({ = ODI) 4 
ial ren @ViI02 AULTUOAaUe 
Aned yd AS-€ .pa mt {6} aot aevioe Gvloe :noi¢gtioesd 


-anotstudisadue i 


.OTOYS bas IAUY :Ya@ bolls9 


g e om |) S&S x » ,bess imo 3d1isdd woLt ; t 
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New Variables: 

A(i,j) : Lower and upper matrices that have been 
obtained by LU decomposition of matrix [R] in 
Eq. 3=24 (done in STIFF) are now stored, 
instead of [R] itself, 

Wi)” * = Vector | 5) "inna, 3-24 ae tie beginning: 
then changed to [L]~/{B} using forward elim- 
ination. When the calculation is finished, 
it is tne solution  el7in Loe 5-24, and 

c(i) ":" Story shear terms in the solution 0. 
in’ Eq’. 3=24% 

(10) SUBROUTINE SHUKI 
Description: SHUKI computes the first three undamped 
natural periods and the minimum natural period; 
and corresponding modes. 
Called By: MAIN 
Catis:) LOKYOT. 
Flow Chart: Omitted. 
(11) SUBROUTINE TOKYO1 
Description: TOKYOl is used to change a matrix to its 
inverse matrix y: it goes through. 
Galtedeby.: solUK. and Kok. 
Flow Chart: Omitted. 
(12) SUBROUTINE KIKU 
Description: KIRKU Calculates” the damping coeiiricrents, 


C,, as defined» ihn Eq. 3-29.98 [tC ialso calculates 


.bexede wom ora’ (TIITe mt eriob) #$-E .pH 
 \BLeedt [8] to beotenk 

contankped sid a8 WS-€ .pa nt (a) todsev 2 (E)W 
-~aits Suswxot pntew {a)*" {a} 09 bepnsdo mens/> °°: 
badeink? af aotisivoles od nodW -notsent ~ 
bos ,64-£ .pa ab (¢} Prone ont eb tb) 

(8) sotdutoe eft ni amxet weede yros2= 2 (£9 
-bS<6 (paink) or 


InvuHe AMITUONEUe (OL) 


beqmeban setdd text? ent eetuqnoo TAUHe x reign 
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the initial deflection, {Eo} ASHEN chord 271 

Called By: MAIN. 

Calls sharOKyYOl: 

Flow Chart: Omitted. 

SUBROUTINE JISHIN 

Description: JISHIN is the most important subroutine 
as it solves the equations of motion by calling 
SUCHI, checks member end moments, Mo, and relax- 
ation angles, 60., if they are within the assumed 
branches of the M,-96, relationship by calling 
KYOTO and if they are not, a new stiffness matrix 
is calculated in SAIBUN. The M,-66. relationships 
are updated in the manner as described in Sec. 
2-5-4, by calling ‘NARA. The results are output 
in.warnious] formats according to input specifica- 
tions. 

Called By: MAIN. 

Calls tasSTEEF, SUCHL, SAIBUN, KYOTO, NARA and TIME. 

Edow (Ghart: sMhownpin:Fig. iD-4- 

New Variables: 
GA(i)., TBSEL Gi) ; ie defined in the preparation 

ofiinput.<data,, 
AX(i) : Acceleration relative to the ground 
({X} as in Sec. 3-7-1), 


VX(i) 9-2 Velocity relative to the ground ean. 
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XD(i) : Displacement relative to the ground ({x}), 

RX(i) : Displacement at the i-th floor relative to 
the ‘i+1-th floor, 

RV(i) : Velocity at the i-th floor relative to the 
Bel=th floor; 

AA(i) : Absolute acceleration ({X} + Vit} for an 


earthquake; {X} for a blast load), 


COi Gis) : Shear coefficient, 

RESC (i) : | Resisting. force ‘due -to,damping, 

RESQ(i) : Resisting force due to frame action, 

RXMX (i) : Maximum value in relative displacement, 
RVMX (i) : Maximum value in relative velocity, 

CQOMX (i) : Maximum value in shear coefficient, 
XDMX(i) : Maximum value in displacement relative to 


the ground, 


AAMX (i) : Maximum value in absoluate acceleration, 

RCMX(i) : Maximum value in resisting force due to 
damping, 

ROMX (Da s*s Maximumavalue tintreszsting force due to 


frame action, 
TRMX(i) : Maximum value in total resisting force, 
TRX(i) : Time when the maximum relative displacement 
was recorded, 
TRY; Gi) : Time when the maximum relative velocity was 


recorded, 
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TCQ(i) : Time when the maximum shear coeffici- 
ent was recorded, 

OAX(i) : Acceleration ({X}) obtained in the 
previous step of integration, 

OVX(i) : Velocity ({x}) obtained in the previ- 
ous step of integration, 

OXD(i) : Displacement ({x}) obtained in the 
previous step of integration, 

FT(i,j) : Present value of relaxation angle, 
660, at the i-th member and the j-th end, 

KOSAN(i,j) : Indicates if the rotational spring 
has experienced inelastic action (KOSAN = 1) 
or not (KOSAN = 0) at the i-th member and 
the j-th’end, 

GAl : External disturbance at t = = - 2At 
where eS is the value of time axis for which 


the present step of calculation is being done, 


GA2 : External disturbance at t = ee rN tes 

GA3 : External disturbance at t = oe 

GA4 : External disturbance at t = 5 + At, and 
TP : Value of time axis for which the present 


step of calculation is being done. 
(14) SUBROUTINE SAIBUN 
Description: SAIBUN reperforms the numerical integra- 


Lone by calling cUCHT with a smaller» valuesot 
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time increment, when the calculations failed to 
converge with regular value of At or when the 
M,-AO. relationships at any member ends are being 
changed from one branch to another. 
CalledrBy: KOISHIN. 
Calls: SUCHI, KYOTO, STIFF and NARA. 
Flow Chartetishowngin Rigevyb=5 . 
New Variable: 
GAP : Present value of external disturbance 
obtained by interpolating GAl, GA2, GA3 and 
GA4. 
(15) SUBROUTINE SUCHI 
Descriptiones +SUCHI solves’ the equations of motion us-— 
ing the linear acceleration method as explained 
in Seckiss7/=2n 
Called By: JISHIN and SAIBUN. 
Calls2ago0t 
Flow Chart: £SShownlin Figt DEon 
New Variable: 
ISAI : Indicates if the equations of motion were 
solved successfully; i.e., numerical integra- 
tion procedure converged (ISAI = 10) or not 


(ISAI = -10). 
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(16) FUNCTION QQ 
Description: QQ calculates Q, ({x}) tn EG.) o-35. 
Calledgepy: SUCHE: 
Flow Chart 3 mreOmitted ¢ 
(17) SUBROUTINE KYOTO 
Description: KYOTO calculates the present value of 
relaxation angle at every member end and checks 

if it is within the assumed branch of the M,- 66, 

relattonshipm(set sCHin= iOje ominotwa(setcEGHIs >). 

Called By: JISHIN and SAIBUN. 
Calls ww8 ASOLVE;, a&2Urand HEN: 
ElownGhast;: sShownpgrn Jhrg.p-7. 
New Variables: 

EM(j) : End moment at the j-th end of the member 
being considered; i.e., Ma and Mao as 
defined in Eqs. C-=3 and C-—4, and 

ITQ : Indicates if this subroutine was called by 
JISHING GULOB=—L )eOreby SALDBUNMNLLO —=—m2)., | 

(18) SUBROUTINE NARA 
Description: NARA updates the Ele relationships by 
using the procedure described in Sec. 2-5-4. It 
also prints out the location of member end when 
it experiences the inelastic action for the first 
time or when the SSrieees is indicated. 


Called By: JISHIN and SAIBUN. 
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Flow Chart: Shown in Fig. D-8. 


New Variable: 


KDIS : Indicates if any rotational springs have 
indicated collapses (KDIS = -10) or not 
(KDIS = 10). 


(19) SUBROUTINE TIME 
Description: TIME is a standard MTS (Michigan Termi- 
nal System - IBM/360 at the University of Alberta) 
subroutine which allows the user easy access to 
the elapsed time, CPU time used, time of day, and 
the date in convenient units. 


Called By: MAIN and JISHIN. 


D-5 Listing of Program. 
The listing of the program appears on pages 271 


through 300 
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Call TIME 


Call SAKURA 
Call STIFF 


Is ISHUT=1 ? 


Print out the initial stiffness matrix 


Call’ SHUKI 


Call KIKU 
Call JISHIN 


Yes 


Fig., Di MAIN PROGRAM 
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D-2 Mo-50. Relationship in General Situation 
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Enter 


Set ISHUT=0 


Gall FUSE 
Perform LU decomposition of matrix A(i,j) 
Was there any pivotal element that is zero? 


Yes 


Set ISHUT=1 


Was any multiplier 
greater than 100? 


Print out such a multiplier to warn 
that accuracy may be lost in the 
subsequent calculations 


Case RL 


Fal. Ciel aa3 SUBROUTINE STIFF 
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Set INSA=10 
Yes Error in 
Is IGPH>5? input data 
No 
res 1GPH= 1? ts 1GPH=27 


Yes 
Input for MSKIP, INSA, NPCH 
arial CHI) 


ibghelbkm pmepe iubey Gilly 
and INSA 


Is IDISK=0? 


Set data reference number 
equal to 5 for the input 
of TSEI(i) and GA(j) 


Set data reference number 
equal to 4 for the input 
of TSEI(i) and GA(j) 


Input-TSEL(4-) 


Print out important parameters 
among the input data 


Fig. D-4 SUBROUTINE JISHIN (to be continued) 
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Galles ti EE 
Yes 
LS eisuurT=i12 Return 
No 
Set sl SAL=710 


Set initial values for {x}, {x}, {} and so on 


No 
is )islorvasmultiplesors 77 @ 


Yes 


Read in the values of external disturbance, 
GA(}), for next 7 steps of computation 


Determine GAl, GA2, GA3 and GA4 


Preserve the values of AX(k), VX(k) and 
XD(k) of previous step in OAX(k), OVX (k) 
and OXD(k), respectively 


Fig. D-4 (continued) SUBROUTINE JISHIN 
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Call SUCHI 
No 

LS —LSALZ0.2 

Call KYOTO 

Is ICHI=0? 


Restore old values, OAX(k), 
OVX (k) and OXD(k) into 
AX (k), VX(k) and XD(k) 


Call SAIBUN 


TS elLohuUl= Ore kDiso-0. 


Calculate absolute acceleration, Yes 
shear coefficients, etc. 


yes ee) 


Is INSAS5? 


Print out results 


Check maximum values 


Fig. D-4 (continued) SUBROUTINE JISHIN 
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Yes 


tse .GPH25?2 


No 
No 
Is IGPH=1? Then IGPH=2 
Yes 


Store results in 
the disk 


Punch out results 


Call NARA 
Yes 
Is KDIS<0? 
No 
Call TIME 


Is computation time used up to this point 
greater than TIMELT? 


Is i<NCAL? (6) 
& 


Figm, D=4 (continued) SUBROUTINE JISHIN 
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Print out maximum values @ 


Yes 
Is IGPH25? 


NO 


Zz 
O 


Is IGPH=1 ? 


Punch out maximum values 


Store maximum values 
in the disk 


Fig. D-4 (continued) SUBROUTINE JISHIN 
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Set j=l 


Calculate the value of external disturbance by 


interpolation 


Cali #SUCHI 
CaliloKYOrTo 
i 


Is ICHI=0? 


No 
Set new values for HXD(k) and HNL(k) 
Call sSTtLer 
Yes 
Is ISHUT=1 ? Return 
No 


No 
Is }<NSAI? Set ISAT=10 
a 
No : 


FiLG+ DS SUBROUTINE SAIBUN 
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Perform numerical integration procedure 


as shown in the chart in Fig. 3-12 


Yes Has the computation been successful? 


Has the convergence been obtained within 
specified number of iterations? 
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No 
No 
Ts eiSALZO? 
Yes 
Set ISAI=-10 

Set the latest Prince OUCwINGdLcatinguciatwene 
values as the convergence was not 
solution for obtained 


this step 


Fig.= D—-© SUBROUTINE SUCHI 
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Set ICHI=0 


Calculate the right hand side vector {B} in Eq. 3-24 


for the present deflection, SXD(i) 


Solve for AO) in Eq... 3-24 by calling SOLVE 


Calculate relaxation angle, FT(i,j), at 
both ends of the member being considered 


Is the relaxation angle within the assumed branch 
of -pthe+M,-é0e-relationship-at-either~ end? 


Set ICHI=ICHI+1 


is LIQ=1? 


Select a new branch where the Precsente (M7, 00.) 
values lie, i.e., set a new value of IMA ti, 3) 


Has the checking procedure been 
completed for all members? 


Yes 
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270 


Set KDIS=10 


Toma ap 0? 


13) =07 
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oO 
Is KOSAN(i,j)=0? 
x 


es 


Print out the location where yielding is recorded 


Set KOSAN(i,j)=1 


Is collapse declared at this member end? 


ves 


Update the M,-66¢, 


relationship set KDIS=-10 


This is the end of 
the procedure for this member end 


Has the updating procedure been completed 
at all member ends? 


PLoOnwD— 3s SUBROUTINE NARA 


ors 


=~ 


. al 
on 


. 


 OL-@I0da 392 had 


GO= (t,t) Amr 


-$0"(t,t) MASON et 


eoY 


beb1029x Bk oaibledy siedw noistsool sit tuo taixd, 


L=({, i) WA20A sae 


sbae xedmen aidt ts bereloeb seqsiloo eal 


. 85-.M ofit stebqU 
OL-a850K 296 , er tan teaien 


Yo bas ont ai eid? 
bue resdmem eidd 1w6Okt stubsco1q ods 


bedelqmoa need exubsoorq eaissbqu odd esH 
Sabre sr9dmom [Ils 36 Jf . 


20% ¥ 


Coon) 


AMAA AuITUORHaAVe 8-d pit 


eile: 


LISTING OF PROGRAM II 


COMMONBNS NBT OTEK 225) ,SH(25),SPR( 5),SB( 4).,RP (25, S),UDL(25,- 4) 
CCANON TOR 22572), TON(2252)) SLPLS (225) , SLP (225, 3) , BETA (225,275) « 
VWBETAN2 2 S,2,6),2MR (225,2) PMO (225,2,2) ,HXD (25) , HNL (25) 
DEMENSTONSMGNSO, 11)),CSN(25)),0 (25,25) ,C (25) ,S4. (25), TP (25) 
CALL TIME (0) 
CALL SAKURA (GOSA,NCAL,MXIT,NTOBU,NSAIL,GR, DELTAT,SEICO,C,SM,IP,CSM 
1,THAJI,TOWA,LTE,IGPH,ITIME, IDISC) 
IA= (NB+2) *NS 
DO 100 I=1,NS 
HXD (I) =0.0 
HNI (1) =0.0 
100 CONTINUE 
CAIIL STIFF (Q,0,A,1A,1SHUT) 
LF(TSBULT .EQ. 1) STOP 
WRITE (6,200) 
200 FORMAT (/1X,*STIFFNESS MATRIX FOR aes FRAME -- IN TERMS OF TOTAL ST 
1OREY SHEAR. *) 
IF(NS*.LE. 8) GO TO 230 
DCP 220; 2=17NS 
WRITENCE 210) 1, (0(1,d) ,J=1, NS) 
210 FORMAT (3X, *ROW',13,8E15.6/(9X, 8E15.6) ) 
220 CCNIINUE 
GO I0 260 
230 DOFZ5081%=15NS 
WRITE (67250) 9 17(0 (1,0) J=1, NS) 
240 FOFMAT (3X, *ROW',13,8E15.6) 
250 CCNTINUE 
260 CALL SHUKI(Q,SM«, GOME) 
CALL KIKU (DELIAT,C,GOME,Q,GOSA,GR,NCAL) 
CALL JISHIN (SH,CSM,C, LE, IGPH, GR, GOSA, NCAL, DELTAT, NXIT,NSAI, NTOBU, 
ITRAVL ALOWA, SELGO.O PLA A, LIP ,LTiIME ,IDLSC) 
STOE 
END 
SUEROUTINE SAKURA (GOSA,NCAL,MXIT, NTOBU,NSAI,GR,DELTAT,SEICO,H,SM, 
[et 12 CE Sol WISUAG/ AL 5 GOMUN 5 MaDe 5 IUCN ol 5 DEMEIE AWE IID Se) 
COMMENL NS NDy Solr (225))7SH (25) 7SPR() 5), SB( 4),RP (25, 5),UDL(25,° 4) 
CCKMON LOR e oe co) PlON (225, 2) pSLELS (229)),SLE (225, 3) ,BDELA( 22572, 5) 4 
ITHEDAN 22592, 6) LMA (225, 2) ,FM0 (225,272) ,HXD (25) , HNL (25) 
DOkPASTONEPNG (225) .BML (25, 4) /CNI (25, 5) 75M (25) , 1P(25) ,H (25) ,CSM (2 
15) ,NES (225) , TEMPO (225) , NESS (225) 
10 FCKMAT (1H1) 
20 FORMAT(1H ) 
COMMENT ;: INPUT STATEMENT 
READ(5,100) NS,NB,NCAL,MXIT,NTOBU,NSAI,LTP,IGPH,TIMELT, 
IDELIATPGOSA,EM,GH,SEICO, IDISC,THAJI,TOWA 
100 FORMAT( 815, 10X, 3F10.0/3F10.0,15,25X, 2F10.0) 
IF(IIMELT .~LT. 0.000001) TIMELT=60.0 
ITIME=1IFIX (TIMELT*60000.0) 
NE1=NB+1 
NBE=24*NB+1 
NEET=NBB*NS 
COMMENT ©¢ INPUT STATEMENT 
REALD(5,110) (SB(J) ,J=1,NB) 
110 FORMAT ((8F10.0)) 
DGPiSs0el=1, NS 
CCMMENT 3; INPUT STATEMENT 
READ(5,120) SM(I),H (I) ,SH(I) ,1IP (1) 
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(£3. 2098, Xe) \2.2 TB, EL, WOR", KE) PAMBOT 
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SOMETHOD 


; (aHo, “#2,0)1auH2 IIAD 0 
(JADW, 99, A200,9, 909, 9, TAVIGG) BALA TTAD 
VOOTH, TAR, PIR, TATIIG , LAD, A200, 89 \Hdor.42s2, 429,02) MIKEIU IJAD 
(D2ICI, AHITI,ITI,A,AT, 9, 02182, AMOT ICARTT 
yoTe 
aug 
H2, H,O01S2, TATIGG FO, TASH USOTH TIAN, ADM, A200) ARUMAS SUITHORSVE 
(DERCL, AWITI,H9IOT, ITI, AWOT  TCAHT 29,917 
(a ere (2 s@S) 9A, (8 Pe, (e pMAe, (eS) U2, (20S) 372,86 ,eu #OaKD3 
» (24 POS pATaN (Ey SS} 12, (@SS) 2lo.te . (S288) HOr, (S 25S) 901 MOMMDD 4 
(aS) MWh, (25) OKA (SS 29s) Ona, (S265) AUT, (ak SSpALSHTT 
S$) HED, (2S) K, (SPIT, (RPMS (e ye) THD. ( ,eSpine, (28s) 98 a orwenaty 
(28S) 2228, (25%) OWNET, (285) 2am, (er 
(fAaryprasaoay or 
( Hh) TAN@OT OS 
THSHATATE TUIWI +: TUAHAOD 
.TAISHIT, HOOT, ITI, TASH VGOTH, TIAN, JAOM, AK, 24 (OOF ,e)Ckaa 
AWOT .LOANT D2l0T ,ODTZ2,a0, 83, A209, Tarisar | 
(9.0P3S .488,e7T,0. Ordo. Orde, yor ,@r8 yTARnao0% OOF 
0, OpeTiaNzT (rooooo. Py Ts TIgHIT) it 
{0.00009*TISMIT) XLUIR=AHITI 
fean=rae 
reaues=aau 
2n*gawaragu 
THSMGTATe TUGHL +: THSAMHOD 
(au,reG. (Gj) a2) (Orh,2@) daca 
((0.0°98)) TANaOF OFF 
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THEBATATS? TUINE + SUSRBD 
iS (2) He, (TPR, (2) oo (ost .2) Qaea 


=; 


120 FORMAT (3F10.0,15) 
130 CCNIINUE 
DC 140 I=1,NS 
COMMENT : INPUT STATEMENT 
/.  READ(5,110) (RP(I,J) ,J=1,NB1) 
140 CONTINUE 
DO 150 I=1,NS 
CCMMENT : INPUT STATEMENT 
REAL (5,110) (BMI(I,J) ,J=1,NB) 
150 CONTINUE 
CC 160 I=1,NS 
COMMENT : INPUT STATEMENT 
READ(5,110) (CMI(I,J) ,J=1,NB1) 
160 CONTINUE 
DO 190 I=1,NS 
DO’ 170° J=1,NB 
IJ=NBE* (I-1) +d 
STF (IJ) =2.0*EM*BMI (I,J) /SB(J) 
170 CCNTINUE 
DC 180 J=1,NB1 
IJ=NBB* (I-1) +NBtJ 
STF (IJ) =2.0*EM*CMI (I,J) /SH (1) 
180 CCNTINUE 
190 CCNIINUE 
COMMENT : INPUT STATEMENT 
READ(5,110): (SER (I) ,I=1,NB1) 
CSM (1) =SM (1) 
TF(NS SEQ. 1) GO TO 220 
DO 210 I=2,NS 
CSM (I) =CSM (I-1) +SM (I) 
210 CCNIINUE 
220 DO 230 I=1,NS 
COMMENT : INPUT STATEMENT 
REATI(5¥110) (UDL(I,J) , J=1, NB) 
230 CCNTINUE 
ITSU=0 
KUMI=0 
COMMENT : INPUT STATEMENT 
240 READ(5,241) IKUTSU, (NES (K) ,K=1,IKUTSU) 
241 FORMAT ( (1615) ) 
K= 10000000 
DO 231 J=1,IKUTSU 
IF(NES(J) .GE. K) GO TO 231 
K=KES (J) 
IF(J .FQ. 1) GO TO 231 
NES (J) =NES (1) 
NES (1) =K 
231 CCNIINUE 
COMMENT : INPUT STATEMENT 
READ(5,242) (TEMEO(I) ,1=1,6) ,SLPLS (K) 
242 FORMAT (7E10.5) 
KUMI=KUMI+1 
DO 245 J=1,IKUTSU 
JJ=NES (J) 
NESS (JJ) =KUMI 
245 CCNIINUE 
SLE (K, 1) =TEMPO (2) /TEMPO (1) 


SLE (K, 2) = (TEMPC (4) -TEMPO (2) ) / (TEMPO (3) ~ TEMPO (1)) 
SLE (K, 3) = (TEMPO (6) ~TEMPO (4) ) / (TEMPO (5) ~ TEMPO (3) ) 


BETA (K, 1,1) =0.0 
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reS OF OD (fF «05. GPSE 
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TUSMaTATe TOUGHT > THAHKOD 
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THOME (LL) 2238 4303 
S0uIrKDD us 
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call 
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; 273 


of Aaa ARSE cs need Ue N CU eMSE DSS A Bt dA A dR a abel e008 Oa ah 
1)) 
SA Raed, Lada. SAn ha eNE ee Rekha ee 
)) 
BETA (K,1,4) =-BETA(K,1, 2) 
EETA(K, 1,5) =-BETA (K, 1, 3) 
THETA (K,1,1) =TEMEO (1) 
THETA (K, 1, 2) =TEMPO (3) 
THETA (K,1,3) =TEMEO (5) 
THETA (K, 1, 4) =-IEMPO (1) 
THETA (K,1,5) =-TEMEO (3) 
THETA (K, 1, 6) =-IEMPO (5) 
PMC (K,1,1) =TEMEO (2) 
EMC (K, 1, 2) =-TEMPO (2) 
DC z70 i=1,IKUTSU 
KI=NES (1) 
DO 260 J=1,2 
ICE (KI,J) =1 
ICK (KI,J)=1 
IMA (KI,J) =0 
DepiehOcet .AND. J «BQO. 1)).GO TO 260 
CO 255 L=1,6 
THETA (KL,J,L) =THETA (K,1,L) 
Pe(iy=JGE. 6) GO TO 255 
BETA (KI,J,L)=BETA(K,1,L) 
PR(EY. GES 3) GO TO 255 
PMC (KI, J, L)=FMC(K,1,L) 
255 CCNTINUE 
260 CCNIINUE 
DE (@. EO 1)? "GO: -TO- 2270 
SLELS (KI) =SLPLS (kK) 
SO 265 =L="1, 3 
SLF (KI, L) =SLP (K,L) 
265 CONTINUE 
270 CCKTIINUE 
THETA (K,1, 5) =TEMPO (4) 
THETA (K,1,6) =TEMEPO (6) 
ITSU=ITSU+tIKUTSU 
TE (ITSU 45EQ. °NEBT) GO TO 275 
GO 10 z40 
275 WRITE (6,10) 
WRITE (6,280) 
280 FORMAT (1X,'** INPUT DATA ***) 
WRITE (€,290) 
290 FORMAT(/1X,*BEAMS ',5X,*PLASTIC MCMENT ** STIFFNESS (2EI/L) ** U.D 
Voaka) 
KAKU=1 
300 JS=(KAKU-1) *3+1 
IF(NE .LE. KAKU*3) GO TO 301 
JE=JS+2 
KAKU=KAKU+1 
GO 1C 302 
301 JE=NB 
KAKU=-1 
JES=JE+1-JS 
GO 10 (304,303,302), JES 
304 WRITE(6,307) (J,J=JS,JE) 
GC TC 308 
303 WRITE(6,306) (J,J=JS,JE) 
GC 10 308 
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302 
305 
306 
307 
308 


310 


JUS 
320 


825 


WRITE (6, 305)) (07 J=JS,JE) 

FORMAT (3X, *FLCCR',3(10X,*---- BAY NO. (',13,* ) 
FORMAT (3X,"FLOCR',2(10X,'---- BAY NO. (',13,* ) 
FORMAI(3X,"FLOOR', 10X,'---- BAY NO. (',13,' ) 
DCA3Z20, I=1,NS 


IJ=NBE* (I-1) +JS 
IJJ=1J+JE-JS 

[LO 210 K=JS,JE 
KK=IJ-JS+K 
TEMEO (KK) =UDL (I,K) 
CONTINUE 
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es *) 


WRITE(6,315) I,((EMO(J,1,1),STF (J) , TEMPO (J)) ,J=1J,1J¥) 


FCEMAT(1X,16,1X,3(2X,3E13.5)) 
CCNTINUE 
WRITE(6,325) (SB(J) ,J=JS, JE) 


BORMAT(3Xp°BAY LENGTH! ,10X,E13.5,2 (28X,E13.5) ) 


IF(KAKU .GE. 0) GO TO 300 
WRITE (6,330) 


274 


330 FORMAT (//1X, *CCLUMNS',5X, "PLASTIC MOMENT ** STIFFNESS (2EI/H) ** LE 
INGTH OF RIGID ZONE (EACH SIDE OF CCLUMN) *) 


340 


341 


344 
343 
342 
345 
346 


347 
348 


350 
360 


370 


380 


390 


400 


KAKU=1 

J$= (KAKU-1) *3+1 

IF(NB1 .LE. KAKU¥*3) GO TO 341 

JE=JS+2 

K AKU=KAKU+1 

GO 10 342 

JE=NB1 

KAKU=-1 

JES=JE+1-JS 

GG 1G (344,343,342), JES 

WRITE(6,347) (J,J=JS,dE) 

GC 10 348 

WRITE(6,346) (J,J=JS,JE) 

GC 1C 348 

WRITE(6,345) (J,J=JS,JE) 

FORMAT (3X, "STOREY", 3(9X,'--- COLUMN NO. 
FORMAT (3X, "STOREY',2(9X,'--- COLUMN NO. 
FORMA1(3X,*STOREY', 9X,'--- COLUMN NO. 
CO 360 I=1,NS 

IJ=NBB* (I-1) #NB+JS 

IJJ=1J+JE-JS 

[LO 250 K=JS,JE 

KK=IJ-JS+K 

TEMEO (KK) =RP (I,K) 

CCNIINUE 
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(',13,' 
(",13,' 


) 
) 
) 


adm we Seg 4) 
Gio uer gal ©.4 Bd 
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WRITE(6,315) I,((EMO(J,1,1) ,STF (J) ,TEMPO(J)) ,J=IJ,IJJ) 


CCNIINUE 
WRITE(6,370) (SPR(I),I=JS,JE) 


BCRMAD (SX,*BASE SPRING CCNST.*,2X%,£13.5,2(28X,E13. 5) ) 


IF (KAKU .GE. 0) GO TO 340 
WRITE (6,380) 


FCRMAT (//1X,' OTHER STRUCTURAL PROPERTIES") 


IF(LTE .GE. 5) GO TO 420 
WRITE (6,390) 


FORMAT( 3X,'"STOREY*,5X,"HEIGHT',9X,'WEIGHT',4X, ‘CUMULATIVE We 


1X,‘CDAMEING COEF. ‘*) 


Dos =1,0S 
WRITE (6,400) I,SH(I),SM(I) ,CSM(I) ,H (I) 
FCBMAT (1X,16,8EF15.5) 

SM(1) =SM(I) /GR 
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(X) Hy (TP MED, (1) Me, (T)H2,T (000,0) ar 
—  (@ 21TH, SL,X1) PAs 008 
HOS (1) He* (LE) 


410 


. Zip 


CSM (I) =CSM(1I) /GR 
CCNTINUE 
GC TO 445 


COMMENT : INPUT STATEMENT (ONLY WHEN BLAST LOADING) 


420 


430 


REAL(£,110) (CSM(I) ,I=1,NS) 
WRITE (6,430) 
FORMAT( 3X,'STOREY',5X,"*HEIGHT',9X,"WEIGHT',5X,"DAMPING CCEF.', 3X 


1,°LCAL FACTOR") 


DO 440 I=1,NS 

WRITE(6,400) I,SH(I),SM(I),H(I) ,CSM(I) 
SM(I) =SM(I)/GR 

CSM (I) =-CSM (1) 

IF (I .FQ. 1) Gc To 440 

CSM (I) =CSM (I-1) +CSM (I) 


440 CCNIINUE 
445 WRITE (6,450) 
450 FCRKMAT (//1X, *THE SPRING TO SIMULATE THE PLASTIC BEHAVIOUR AND/OR A 


460 


480 
481 
482 
490 


491 


500 


IXIAL LOAD EFFECT HAS A MOMENT-THETA RELATION GIVEN BELOW ') 


DC 500 L=1,KUMI 

IKUTSU=0 

DC 460 LL=1,NBET 

IF(NESS(LL) .NE. L) GO TO 460 

IKUISU=IKUTSU+1 

NES (IKUTSU) =LL 

CCNIINUE 

K=NES (1) 

Lre(aKOTS0) . LE. 22)..G0 TO: 481 

WRITE(6,480) (NES(I) ,1=1,IKUTSU) 

FCRMA1(3X,'FOR THE MEMBER NO.',22(I4,',')/(6X,25(14,',"))) 
GC 10 490 

WRITE (6,482) (NES (1) ,I=1, IKUTSU) 

FORMAT (3X,"FOR THE MEMBER NO.',22(I4,',")) 

WRITE(6,491) THETA(K,1,1) ,PMO(K,1,1) , THETA (K, 1,2) , THETA (K, 1,5), 


WHE TAK, 1,3) ,TEETA(K,1,6) ,SLPLS (K) 


FORMAT (SX) STHETA-NOMENT*, 3(2X,2E13.5,%3'),3X,*PLASTIC SLOPE*,E14.5 


1) 


THETA (K, 1,5) =-THETA (K, 1,2) 

THETA (K,1,6) =-THETA (K, 1,3) 

CCNIINUE 

RETURN 

ENT 

SUEROUTINE STIFF (Q,INIT,A,1IA,ISHUT) 

CCMMON NS,NB,STF (225) ,SH(25) ,SPR( 5),SB( 4),RP(25, 5) ,UDL(25, 4) 
fe VM CNT OPI 25 Ne TON (225,2),SLELS (225) , SUP (225, 3) ,BETA (225,279) + 


ITBETA (225,2,6) , LMA (225,2) , PMO (225, 2, 2) ,HXD (25) ,HNL (25) 


DIMENSION A(15C,11) ,Q (25,25) 
ISHUI=0 

CALL SEUgaK(A, 1A) 

N1=NB+1 

NZ=NB+2 

N3=NB+3 

NE=24*NB+3 

DC: 260, 1=1,.NS 

DOmc SOed=1, N1 

IJ=N2* (I-1) +d 

EOg2 4 OeK= We N2 

IK=1Jd+K 

NZS=NZ*NS#1 

frdkes chew N2S)e GO) TO 250 
NK=NZ-K 
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N3J=N3-Jd 
IF(K .GE. N3J) NK=NK+1 
IF (ABS (A(IK,NK)) «LT. 1.0E-30) GO TO 240 
IF(ABS(A(IJ,N2)) «LT. 1.0E-30) GO TO 270 
A (IK,NK)=-A(IK,NK) /A(Id,N2) 
IF (ABS (A({IK,NK)) ~LT. 1.0E2) GO TO 220 
WRITE (6,210) A(IK,NK) . 
210 FORMAT (/1X,"WARNING - ACCURACY LCSS IN CALCULATING STIFFNESS MATRI 
1X - MULTIPLIER=',5F12.4) ; 
220 DO 230 L=N3,NE 
NL=NK+1L-N2 
A (IK, NL)=A(IK,NL) +A (IK,NK) *A (IJ,L) 
230 CCKTIKUE 
240 CCNIINUE 
250 CCNIINUE 
260 CCNIINUE 
GC 1c 290 
270 WRITE (6, 280) 
280 FORMAT (/1X,"DIVISICN BY ZERO WHEN FINDING STIFFNESS MATRIX‘) 
ISHUT=1 
RETURN 
290 CALL YURI(Q,A,1A,INIT) 
RETURK 
ENE 
SUERCUTINE FUJI(A,IA) 
CCMNGN NS,NB,STF (225) ,SH(25),SPR( 5),SB( 4),RP(25, 5),UDL(25, 4) 
@GRNCN TOP (225,2), LON( 225, 2)\, SLELS (225), SLP (225, 3) ,BETA (225,25) 4 
LEBETA( 2257270) 71MA (22572) SP NO (2257292) pHXD (25) , HNL (25) 
DIMENSION A(150, 11) 
N1=NB+1 
N2=NBtZ 
N3=NB+3 
NEE=Z4NB+1 
NE=NBE+2 
DEX1O0: T= 1 pIA 
DC 90 J=1,NE 
A (I,J) =0.0 
90 CCNTINUE 
100 CCNIINUE 
PC5Z60 'L=1)NS 
HO? 2510 I=4 ,N2 
IJ=NK2¥ (I-1) +d 
IF(J .EQ. N2) GO TO 200 
DE (MSs <1) «GOTO 110 
MA=NBE* (I-1)-N1+Jd 
CAD DENZU (VAPVB,HA,2,0.0,0.0,1, 1) 
Dad 1y=VA 
A (1J0,N2)=VB 
110 IF(J .EQ. 1) GO TO 120 
ML=NBB* (I-1) +J-1 
FR1=KE (1,J-1) /SB (J-1) 
FRZ=RE (I,J) /SE (J-1) 
CALL IZU(VA,VB,ML,Z,FR1,FR2,1,1) 
A(IJ,N1)=VA 
A(Id,N2) =A (Id,N2) +VB 
120 IF(J .EQ. N1) GO TC 130 
ME=NBE* (I-1) +J 
FRI=FE (I,J) /SB (J) 
FRZ=KE (I,J+1) /SB (J) 
CALL IZU(VA,VB,MR,1,FR1,FR2,1,1) 
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A(1d,N=2)=VB 
A(10,NZ)=A(IJd,N2)+VA 

130 ME=NEB*I-N14J 
IF(I .FQ. NS) GO 10 140 
CAIL 120 (VA,VB,MB,1,0.0,0.0,1,1) 
A(IJ, NE) =VB 
A(IJ,N2)=A(IJ,N\2)+VA 
GOsTO, 250 

140 CALI 120 (VA,VB,MB,1,0.0,0.0,-1,1) 
A(1J,NZ)=A(IJd,N2)+VA 
GO 10 250 

2002 TCr220 K=1,N1 
KK=NBB*¥I-N1+4K 
KE=N14K 
LE ieee Oa NS) GOR TGH2 10 
CALL IZU(VA,VB,KK,3,0.0,0.0,1,1) 
A(IJ, K)=VA 
A(1I0,KE) =VB 
GG ITCh 220 

210 CALL IZU(VA,VB,KK,3,0.0,0.0,-1,1) 
A(IJ, K)=VA 

220 CCNIINUE 
A (IJ, NE) =SH (I) 

250 CCNTINUE 

260 CCKTIINUE 
KETURN 
END ' 
SUBROUTINE IZU(VA,VB,M,II1,FR1,FR2,1ASHI,IGO) 
COPNOMNPINS) Ei, STF (225)',SH(25) ,SPR( 5) SB 4) ,RP (25, 5), UDL(25, 4} 
COMMeNeIOP (2252), 10N (225,52) pSLPLS (225)), SLE (22573) , BETA (225,259), 
ATHETANZ OS, 2.6), DMA 225, 236 PMO (225,2,2) ,HXD (25) , HNL (25) 
FR3=1.0-FR1-FR2 
FRA=FR1 
FRE=FR2 
LE(AGOR Len Or oAN Dire lye O .m kl) ee FR TE OF LO 
209 (MSE Sees 1) SIMMS Ie aHaelG Zi) IEW GW 
ITF(IASHI .LT. 0) J=M- (2*NB+1) * (NS-1) -NB 
EEL MAMA) elk ea) IGO, TON ti 
ICCN=IMA (M,1) +1 
W=SLE(M, ICON) 

De GOMTO asl 2 

111 ICON=1-IMA (M, 1) 
W=SLE (Y, ICON) 

112, ISKGMA (Nee) SL iseretje Go TO 113 
ICCN=IMA (M,2) +1 
Y=SLE (M, ICON) 
GiCRaLOe 120 

113 ICCN=1-IMA (M, 2) 
Y=SLE(M,1ICON) 

120 LTRVARS(W)LEL TY STF (M) TOR. ABS: (Y) LT. STP (M)) GO TO! 130 
Te OW) Reel 9100 E30) 407A NDP EY) PLT, 41.j0EG0) 9sGO0 gh091 0.5 
BUN=ALOG (W) +ALOG (Y) 
DE (EON SUTLNI1S0.0)8GO TO 105 
DEN=1.0+2.0*STF (M) *(1.C/W+1.0/Y) /FR3 
GC 10 110 

105 DEN=1.0+2.0*STE (M) *(1.0/W+1.0/Y) /FR3+3.0*(STF(M) /FR3/W) * (STF (M) /FR 
WAG) 

11:0) DEGIAS BU PALT,..970)T:GONTOstZ5 
VC= (1.04+3.0* (FRItFR2) /FR3+6. O*FRI*FRZ/FR3**2+3.0¥*STF (M) * (FRI/W+FR2 
T/Y) /FR3**2+3.0#FRI*FR2¥*STE (M) *(1.0/W41.0/Y) /FR3**3) *STF (M) /FR3/DEN 
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IF (11 *S2Q.) 2)" GO "T0122 
VE=VC 
IF(IGO .LT. 0) FRI=FRA 
VA=2.0+3.0¥*FR1/FR3+3.0*STF (M) *(1.0+FR1/FR3) /FR3/Y 
me(ice .LT. 0) GO TO 121 
VA=VA+3.0* (1.042.0*FR1/FR3) *FRI/FR3+3.0*STF(M) *((1.0+FR1/FR3) *FRI/ 
1F R3¥**Z/Y+FR1**2Z/FRI**3/W) 
121 VA=VA¥*STF(M) /FE3/DEN 
IF(II .EQ. 1) RETURN 
VA=VA+VC 
GO TO 123 
122 VA=VC 
IF(IGC .LT. 0) FR2=FRB 
123 VB=Z.(+3.0*FR2/FR3+3.0¥*STF (M) * (1.0+FRZ/FR3) /FR3/W 
TEUICO »JILT.. “0) “Go Ho 424 
VB=VB+3.0*(1.0+2.0*FR2/FR3) *FR2/FR3+3.0*STF (M) * ((1.0+FR2/FR3) *FR2/ 
TFR3**2/W+FR2**2/FR3**3/Y) 
124 VE=VB*STF(M) /FR3/DEN 
IF (II .EQ. 2) KETUEN 
VE=VEB+VC 
RETURXK 
125 G=SER(J) *DEN+STF (M) *(2.0+3.0*STF (M) /W) 
VA= (2.043. 0*STF(M) /Y-STF (M) /G) *STF (M) /DEN 
IF(II .LE. 2) RETURN 
IF (SPE(J) .GT. STF(M)) GO TO 126 
VA=VA+SPR (J) *STF (M) /G 
RETURN 
126 G=DEN+STF (M) * (2.0+3.0*STF (M)/W) /SPR (J) 
VA=VA+STE (M) /G 
RETURN 
130 IF(AES(W) .LE. STF(M)) GO TO 140 
DEN=Y+2.0*STF (M) * (Y/W+1.0) /FR3+3.0* (STF (M) /FR3/W) *STF (M) /FR3 
Gera SHIOS LT. Cj? GO .10-435 
VC= (Y*(1.0+3.0%(FR1+FR2) /FR3+6. O*FR1*FR2/FR3**2) +3. O*STF (M) * (FR1*Y 
1/W4ERZ) /FR3**243.0*FRI*FR2*STF (M) * (Y/W+1.0) /FR3¥**3) *STF (M) /FR3/DEN 
dFYIle se £Ot0 2h COT T0132 
VB=VC 
IF(IGO .LT. 0) FR1=FRA 
VA=Y¥* (2.04+3.0*FR1/F 3) +3. 0*STF (M) * (1.0+FR1/FR 3) /FR3 
BEUCGe elie 0) +GO" 10 °131 
VA=VA+3.0*¥Y* (1.042. OX FRI/FR3) *FRI/FR3+3.0*STF (M) *((1.0+FRI/FR3) *FR 
V1 /FR3**2¢Y*FRI** 2/EFR3I**3/H) 
131 VA=VA*STF(M) /FR3/DEN 
IF(I1I .EQ. 1) KETUEN 
VA=VA+VC 
Ger ie 133 
132 VA=VC 
IF(IGC .1T. 0) FE2=FRB 
133 VE=Y*(2.0+3.0*FRZ/FR3+3.0*STF (M) *(1.0+FR2/FR3) /FR3/W) 
IF(IGcC).1T¥* Oy (Go°T0- 1348 
VB=VB+3.0*Y* (1.042. OX FR2/FR3) *PR2/FR3+3. O*STF (M) * (Y* (1. 0+FR2/FR3) * 
TFRZ/ERS**2/W+ER2**Z/FR3** 3) 
134 VE=VE*STF (M)/FR3/DEN 
IF(II .EQ. 2) RETURN 
VB=VB+VC 
RETURN 
135 G=SER (J) *DEN+Y*STF (M) * (2.043. O*STF (M) /W) 
VA2 (2. 0*Y+3.0*STF(M)-Y**2*STF (M) /G) *STF (M) /DEN 
IF(II .LE. 2) KETUEN 
IF(SPR(J) .GT. STF(M)) GO TO 136 
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VA=VA+SPR (J) *Y*STF (M) /G 
RETURK 
G=LEN+Y*STF (M) #(2.0+3. OXSTF (M) /W) /EPR (J) 
VA=VA+Y¥*STF(M) /G 
RETURN 
IF(ABS(Y) .LE. STF(M)) GO TO 150 
DEN=W+2.0*STF (M) *(1.04#W/Y) /FR3+3.0* (STF (M) /PR3) * (STF (M) /FR3/Y) 
IF(IASHI .LT. 0) GO TO 145 
VC= (W* (1.04+3.0% (FR1I¢FR2) /FR3+6. O*FR1*FR2/FR3¥**2) +3. 0¥*STF (M) ¥ (FRI+tF 
1R2*W/Y) /FR3**2+3.0#FR1*FR2*STF (M) * (1.0+W/Y) /FR3**3) *STF (M) /FR3/DEN 
DPICISR EQ. 2) GC TC 142 
VE=VC 
IF(IGO .LT. 0) FR1I=FRA 
VA=W* (2.0+3.0¥*FR1/FR3+3.0*STF (M) *(1.0+FR1/FR3) /FR3/Y) 
TEMaIGC .1T. 0) GC To 141 
VA=VA+3 .0*W* (1.042. OX FR1I/FR3) *FRI/FR3+3. O*STF (M) *(W¥ (1.0+FR1/FR3) * 
TFRV/FR3**2/Y+ER1**Z/FR3**3) 
VA=VA¥*STF (M) /FE3/DEN 
IF(II .FQ. 1) RETUEN 
VA=VA+VC 
GC 10 143 
VA=VC 
IF(1SC .LT. 0) FR2=FRB 
VE=W* (2.0+3.0¥*FR2/F R3) +34 0*STF (M) * (1.0+FR2/FR3) /FR3 
DE (IGO? .LT., 0) GO TO 144 
VB=VB+3.0*W*(1.042.0*FR2/FR3) *FR2/FR3+3.0*STF(M) *((1.0+FR2/FR3) “FR 
12/EFR3**24+W#FR2** 2/F R3**3/Y) 
VE=VE*STF(M) /FR2/DEN 
IF(II .EQ. 2) KETUEN 
VE=VBtVC 
RETURN 
G=SER(J) *DEN+STF (M) ¥(2.0*W+3.0*STF (M) ) 
VA=W* (2.043. 0*STF(M) /Y-W*STF(M) /G) ¥*STF (M) /DEN 
IF(1I .LE. 2) RETURN 
IF(SPR(J) .GT. STF(M)) GO TO 146 
VA=VA+4SER (J) *W*STE (M) /G 
RETUEN 
G=LCEN+STF (M) * (2. 0¥W4+3.0*STF (il) ) /SPR (J) 
VA=VA+W*STF (M) /G 
RETURN 
DEN=W*Y+2.0*STE(M) * (WHY) /FR3+3.0* (STF (M) /FR3) **2 
TR@ineui@ .LT. 0) GO TO 155 
VC= (W¥Y* (1.043.0% (FRI+FR2) /FR3+6. O¥FR I*FR2/FR3** 2) +3. 0*STF (M) *(FR1 
1*Y+FRZ*W) /FR3*¥2+3. O*FRI*FR2*STE (M) * (WHY) /FR3**3) *STE (M) /FR3/DEN 
Pri SEO-Bi2jdico Ic 152 
VE=VC 
TF(IGC ~<LT.(0) FR1I=FRA 
VA=W* (Y* (2.043.0¥*FR1/FR3) +3. 0*STF (M) * (1.04FR1/FR 3) /FR3) 
Geico .LT. 0) Go 10 151 
VA=VA+3.0* W¥Y* (1.042.0*FR1/FR3) *FRI/FR3+3. O¥*STE (M) * (W* (1.04+FR1/FR3 
1) *FEV/ER3**2+Y*F R1**2/FR3** 3) 
VA=VA*#STF (M) /FR3/DEN 
IF(II .FQ. 1) FETUEN 
VA=VA+VC 
GC IC 153 
VA=VC 
IF(IGO .LT. 0) FR2=FRB 
VB=Y* (W*(2.0+3.0*FR2/FR3) +3.0#STF (M) * (1. 0+FR2/FR3) /FR3) 
ih O)TGO 10 154 
ye Vena Oe WHYS (1.042.0*FR2/FR3) *FR2/FR3+3. O*STF (M) *(¥*(1.0+FR2/FR3 
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1) *FE2/FRI**2+W*FR2**2/FR3** 3) 

VE=VB*STF(M) /FR3/DEN 

IF(II .EQ. 2) RETURN 

VB=VB+VC 

REIUEK 

G=SER (J) *DEN+Y¥*STF (M) * (2.0*W+3.O0*STF (M)) 

VA=W* (2.0*Y+3.C*STE (M) -W*Y**2*STF (M) /G) *STF (M) /DEN 
IF(II .LE. 2) KETUEN 

IF(SPR(J) .GI. STF(M)) GO TO 156 
VA=VA+SPR (J) *W*Y*STF(M) /G 

RETURN 

G=DEN+Y*STF (M) #(2.04W+3.0*STF (M) ) /SPR (J) 
VA=VA+W*Y*STF (M) /G 

RETUEN 

END 

SUEROUTINE YURI (Q,AI,IA,INIT) 

CCMNMON NS,NB,SIF (225) ,SH(25),SPR( 5),SB( 4),RP(25, 5),UDL(25, 4) 
CCEMGN IOP (225,2),I0N(225,2) , SLELS (225) ,SLP (225, 3) , BETA (225,2,5) » 
ITHETA(225,2,6) ,IMA(225,2) ,EMO(225,2,2) , HXD (25) , HNL (25) 
LIMENSICN SXD(Z5) ,C (25,25) ,A1 (150,11) , BH (150) ,BB(150) ,QTEM (25) 
UE (INI e<NE ac) GO 10 130 

DO 100 I=1,NS 

S¥0:(1),.=0.0 

CCKIINUE 

DGgE440; t= 1 ATA 

BB (J) =B (J,SXD) 

CCNIINUE 

CAIL SCLVE (AI,EE,CTEM) 

BGn 120) 1=1,NS 

HNL (1) =CTEM (I) 

CCNIINUE 

DO.614,0,1=1,NS 

SXL (I) =HXD (1) 

CCKIINUE 

DC 6150 st=1,1A 

BH (1) =E (I,SXD) 

CCNIINUE 

DGei80 cl 1.NS 

SXLE (1) =BXD (I) +1.0 

DG 416.0; K=1,1A 

EE (K) =B (K, SXD) ~BH (K) 

CCNIINUE 

CALL SCLVE (AI,BE,CTEM) 

DC 170 J=1,NS 

C (d,1) =QTEM (J) 

CCNIINUE 

SXD (I) =HXD (I) 

CCKIINUE 

RETURN 

ENC 

FUKCTION B(IJ,SXD) 

GGMNON NS,NB,STP (225).,SH(25)eSER( 5),SB( 4) ,RP(25, 5) ,UDL(25, 4) 
GGEMGNK 2EGE (225))2)1, LON (225 72)e9SLPLS (225) ,SLP (225, 3) ,BETA(225,2,5) + 
TIBETA (225,2,6) , IMA (225, WARNS (22% 2; 2eAHXD.(25) , HNL (25) 
DIMENSION SXD(Z5) 

B=0.0 

NE1=NB+1 

NEZ=NE+2 

I=(1d-1) /NB2+1 

J=IJ~NE2* (1-1) 
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. (eyS OSS) ATER, (Ey acsjyade, (as) elaae, (f 285) MOL, ($.255)90 Ir xoms22 — 
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IF(J .~FQ. NB2) GO TO 200 

IG (Ieee EOrs1)e GO! TO 110 

MA= (2*NB¢1) * (I-1) -NB1+J 

S=SH(I-1) 

R= (SXL (I-1) -SXL(I) ) /SH (I-1) 

ESU HEN (MA sShr 2.710%,0 Ria 0 0, Onc0 ,atiset ) 

GE (UOC a )aGCy TC 120 

ML= (2*NB+1) * (I-1) ¢0-1 
FR1=RE (I, 3-1) /SB(J-1) 
FR2=RE (I,J) /SB (J-1) 

UL=ULL (I,J-1) 

S=SE(J-1) 
B=E+UHEN(ML,S,z,UL,0.0,FR1,FR2,1,1) 

WE GietJEGweNB1) GC) TO 130 

= (2#*NB+1) * (1-1) +9 

FR1=KE (1,3) /SB(J) 

FR2=RE (1,J+1)/SB (J) 

UL=ULL (I,J) 

S=SE (J) 

B=E+UEEN (MR,S,1,UL,0.0,FRV,FR2,1,1) 

MB= (2*NB+1) *I-NB1I+tJ 

S=SH (1) 

DE (Te yO NS)eeGOiedC 1:40 

R=(SXCT (I) - ste td Schone 

B= E+UEEN(MB, Sali 0 aC, Ridin, 0 20 «0781, 1) 
RETUBN 

R=SXD (NS) /SH (NS) 

=E+UHEN (MB,S,1,0.0,R,0.0,0.0,-1,1) 
RETURN 

DO 220 K=1,NB1 f 

KK= (24*NB+1) *I-NB1+K 

S=SH (1) 

te -FQ. NS) GO TO 210 

R= (SXL (1) -SXD (1+1) ) /SH (1) 

B=E+UHEN (KK,S,2,0.0,R,0.0,0.0, 1, 1) 

GC T0z20 

R=SXLI (NS) /SH(NS) 

B=E+UHEN (KK,S,¢3,0-.0,R,0-0,0.0,-1,1) 
CCNIINUE 

REIUEN 

END 

FUNCTION UHEN (M,S,11,UL,R,FR1,FR2, IASHI, IGO) 
CCMMON NS,NB,STF (225) ,SH(25) ,SPR( 5),SB( 4) ,RP(25, 5) ,UDL(25, 4) 
CCMMCN LOR C225 72 )ug LGN 62:25, 2), SLELES (225) ,SLP (225, 3), BETA(225,2, 5) % 
ITEETIA (225,2,6) , LMA (225,2) ,EMO(225,2, 2) ,HXD (25) , HNL (25) 
UBEN=0.0 

FR3=1.0-FR1-FR2 

PR CIGORSLET 2 40~ SANDS GUI 8-E0 31) FR1=0.0 
TELIGO ssGT 20 PAN gh . EQ. 2) FR2=0.0 
FEY D=UL* (FR3*S) **2/12.0 

FEMC=-FEMD 

AFC=-0.5*UL*FR1* (1.C-FR2) *S**2 
AFD=0.5*UL*FR2*(1.0-FR1) *S**2 

PFLPASHI OLEe se) J=M- (2*NB+1) * (NS-1) -NB 
CER=2.01*STF (M) 

EF (IMA (Mp1) Re LESeSt)y GO TO 111 
ICCN=1MA(M, 1) +1 

W=SLE (M,ICON) 

IF(IMA(M,1) .EQ. O .AND. W .GE. CER) GO TO 112 
X=EETA (M,1,1CCNK) 
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Ge tig * 112 
111 ICCN=1-IMA (M,1) 
W=SLE (M,ICON) 
ICC N=ICON+2 
X=BETA (M, 1, ICON) 
112 IF(IMA(4,2) «LE. -1) GO TO 113 
ICCN=I1MA(M, 2) +1 
Y=SLP (M,ICCN) 
PF(IMA(M, 2) .EQ. O .AND. Y .GE. CER) GO TO 115 
Z=EETA (M,2,ICON) 
GC TO 115 
113 ICCN=1-IMA (M,2) 
Y=SLP(M, ICON) 
ICCN=ICCN+2 
Z=EETA(M,2, ICON) 
115 CER=2.0*STF (M) 
IF(ABS(W) .LT. STF(M) .OR. ABS(Y) .LI. STF(M)) GO TO 130 
PP (wPIDTORSOnsO .AND. Y .LT. 1.0830) GO To 105 
EUN=ALOG (W) +ALCG (Y) e 
IF(BUN .LT. 150.0) GO TO 105 
DEN=1.0+2.0*STE (M) *(1.0/W+1.0/Y) /FR3 
6C."10 “1110 
105 DEN=1.0+2.0*STE (M) #(1.0/W+1.0/Y) /FR3+3.0% (STF (M) /FR3/W) * (STF (M) /FR 
12/Y) 
11C IF(IMA(M,1) .EQ. O .AND. W .GE. CER) GO TO 116 
XCK=X/W 
GOES ANT 
116 IP=I0E(M,1) 
XCWH=EMC (M, 1,1) /W-THETA (M, 1, IP) 
117 IF(IMA(M,2) .EQ. 0 .AND. Y .GE. CER) GO TO 118 
ZCY=Z/¥ 
Gc! To! 120 
118 IE£=ICE (M,2) 
ZOY=EMO (M, 2, 1) /Y~THETA (M,2,IP) 
120 IM(iasHeR im "cj? GO ‘To 125 
Petrie EO. 2) GO TO 121 
VD=2.0*% (1. 0+STE(M)/Y) *R 
VD=VE- (2.043. O*¥ FR1/ER3+3.0*STE (M) ¥ (1.0+FR1/FR 3) /FR3/Y) *XOW 
VD=VEO- (1. 0+3.0*FE1/FR3+3. C*STF(M) *FRI/FR3**2/W) *ZOY 
VD=VI¥STF (M) /FE3 
UHEN= (VD-FEMC* (1.043. O*STF (M) ¥ (1.0+FR1/FR3) /FR3/Y-3.0*STF(M) *FRI/F 
1R3%**2 7h) ) /DEN-AFC 
IF(II .EQ. 1) RETURN 
121 VD=3.0* (1.0+STE(M) /W) ¥R 
VD=VD- (1.043. 0*FR2/FR3+3. 0*STF (M) *FR2/FR3**2/Y) *XOW 
VD=VE- (2.043. O¥FR2/FR3+3.0*STF(M) * (1.0+FR2/FR3) /FR3/W) * ZOY 
VD=VL*STF (M) /FE3 
UHEN=UBEN+ (VD-FEMD* (1.0+3.0*STF (M) *(1.0+FR2/FR3) /FR3/W-3.0*STF (M) * 
1FRZ/FR3**2/Y)) /DEN-AFD 
RETURN 
125 G=SER (J) *DEN+STF (M) *(2.0+3.0*STF (M) /W) 
VD=3.C* (1.04STE(M) /Yr STF (M) *(1.04+STF (iM) /W) /G) *R 
VD=VD- (2.0+STF (M) *(3.0/Y-1.0/G) ) *xOW 
VL=VL- (1.0-STE (M) * (2.043. 0*STF (M) /W) /G) *Z0Y 
UBKEN=VD¥*STF (M) /DEN 
IF(II .LE. 2) BETUEN 
VD=3.0%(1.04STF(M) /W) *R-XOW- (2.043 .0*STF (M) /W) *ZOY 
IF(SPF(J) .GI. STF(M)) GO TO 126 
UREN=UBEN+VD*STF (M) *SPR (J) /G 
REIUEN 
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126 G=DEN+STF(M) *(2.0+3.0*STPF(M) /W) /SPR(J) 
UEEN=UHENtVD*STF (M) /G 
RETURN 

130 TE{RES (UW) SLEO«STF (M)) YGORTOTIGO 
CEN=Y¥+Z.0*STF (M) *(Y/W+1.0) /PFR3¢3.0* (SIF (M) /FR3/W) *STF (M) /FR3 
ITF (IMA(M,1) ~EC. O .AND. W .GE. CER) GO TO 132 
XOh=X/W 
GOmo 133 

13zZ IF=I0EF (M,1) 
XCW=EMC (M, 1,1) /W-THETA (M, 1, IP) 

133 SEX PASHIRSL ISSCC) (GOeTOR135 
TRAITS. EO. 2) GO TC 131 
VD=2.0% (Y+#STF(M))*K 
VD=VEU- (¥*(2.0+3.0*FR1I/FR3) +3.0*STF (M) *(1.04FR1/FR3) /FR3) *XOW 
VI=VI~ (1.043.0*FR1/FR34+3.0*STF (M) *FRI/FR3**2/W) *Z 
VD=VCU*STF (M) /FR3 
UHEN= (VD-FEMC* (Y+3.0*STF(M) *(1.04FR1I/FR3) /FR3-3. O*Y*STF (M) *FR1/FR3 
1**Z/W)) /DEN-AFC 
IF (II .EQ. 1) RETURN 

131 VD=3.C*#Y*(1.0+STF(M) /W) *R 
VD=VD~- (Y* (1.045. O* FR2/FR3) +3.0*STF (M) *FR2/FR3**2) *XOW 
VI=VI- (2.043.0*FR2/FR3+3.0*STF (M) *(1.0+FR2/FR3) /FR3/W) *Z 
VD=VC*STF(M) /FR3 
UREN=UHEN+ (VD-FEMD* (Y* (1.0+3.0*STF (M) *(1.0+FR2/FR3) /FR3/W) -3.0*STF 
1(B) #EE2Z/FRI**2z)) /DEN- AFD 
RETURN 

135 G=SER(J) *DEN+Y*STF (M) * (2.0+3.0*STF (M) /W) 
VD=2.0* (Y+STF(M) -Y¥**2*STF (M) *(1.04+STF(M) /W) /G) *R 
VDT=VI- (2.0* Y+SIF (M) *(3.0-Y**2/G) ) *XOW 
VD=VL-(1.0-Y*STF (M) *(2.0+3. OSCE EA MY ML ZCT ES 
UHEN=VD*STF (M)/DEN 
WIS(CIIe Gio Ai) hosel 
VD=3.0*Y* (1.0+STE(M)/W) *R~Y*XOW- (27.04+3.0*STF(M) /W) *Z 
LE(SPR(I)* 6 GISASTF(M) ) *GO* TOS 136 
UEEN=UREN¢VD*STF (PM) *SPR(J) /G 
RETUEN 

136 G=CEN+4Y*STF (M) #(2.0+3.0*STF (M) /W) /SPR (J) 
UREN=UHEN+VD*STF (M) /G 
RETURN 

140 IF(ABS(Y) .~LE. STF(M)) GO TO 150 
LEN=W+2.0*STF (M) *(1.04+W/Y) /FR3+3.0* (STF (M) /FR3) * (STF (M) /FR3/Y) 
LEMON, 2) «EC. 0 SAND. Y GE. CER) GO To 142 
ZOY=Z/Y 
GO TC 143 

142 IF=ICE (M, 2) 
ZOY=EMC (M, 2,1) /Y-THETA (NM, 2,1?) 

143 DECPASED SS LEC) (cca TO 145 
DEDIA JEO.0 12) 5 COLTON AN 
VD=3.C#W*(1.0¢+STF (M) /Y) *R 
VD=VD- (2.0+3.0%FR1/FR3+3.0*STF (M) * (1,.0+FR1/FR3) /FR3/Y) *X 
VI=VL-(W* (1.04+3.0*FRI/FR3) +3.0*STF (M) *FRI/FR3**2) *Z0Y 
VD=VD*STF (M) /FR3 
UHEN= (VD-FEMC* (W¥ (1.04+3.0*STF (M) *(1.04FR1/FR3) /FR3/Y) -3.0* STF (M) *F 
1K1/FR2**2)) /DEN-AFC 
IF (II .EQ. 1) KETUEN 

141 VD=3.C%* (W+tSTF (M)) *R 
VD=VD- (1.043. 0*FF2/FR3+3.0*STF (M) *FRZ/FR3¥**2/Y) *X 
VI=VI- (W* (2.043. OX FR2/FR3) +3. 0*STF (M) *(1.04FR2/FR3) /FR3) *Z0Y 
VD=VL*STF(M) /FB3 
UHEN=UHEN+ (VD-FEMD* (W+3.0*STF (M) * (1.0+FR2/FR3) /FR3+3. O*W*STF (M) *FR 
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1Z2/FR3**2/Y)) /DEN-AFD 
RETURN 
145 G=SER (J) *DEN+STFE (M) *(2.0*W+3. O*STE (M) ) 
VD=3.0* (We (1,0+STF (M) /Y) -W*STF (M) * (W4+STF (M))/G) *R 
VD=VD- (2.0+STE (M) * (3. 0/Y-W/G) ) *X 
VD=VD-W* (1.0-STF (M) *(2.0*W+3.0*STE (M1) ) /G) *ZOY 
UREN=VD*STF (M) /DEN 
IF (II .LE. 2) FETUEN 
VD=3.0% (W+STF (M) ) *R-X- (2. 0*W+3.0*STP (M) ) *Z0Y 
IF(SER(J) .GI. STF(M)) GO TO 146 
UBKEN=UHEN+VD¥*STF (M) *SPR(J) /G 
RETURN 
146 G=CEN+STF (M) * (2.0%W+3.0*STF(M)) /SPR(J) 
UKEN=UBEN+VD¥*S1F (M) /G 
RETURN 
150 DEN=W*Y+2.0¥*STE(M) * (W+Y) /FR3+3.0* (STF (M) /PR3) **2 
TFUIASHI .1T. 0) GC TO 155 
IF (ITC SEDET2}5¢co To 151 
VD=2.0*W*(Y+STE(M)) #R 
VD=VD- (Y* (2. 0+3.0*FR1/FR3) +3.0*STF (M) *(1.0+FR1/FR3) /FR3) *X 
VD=VD- (W* (1.042. OF FR1I/FR3) +3.0*STF (M) *FRI/FR3¥*¥*2) *Z 
VD=VD%STF(M) /FE3 
UHEN= (VD-FEMC* (W*Y+3. O*WXSTF (M) * (1.0+FR1/FR3) /FR3-3. O¥Y*STF(M) *FR1 
1/FE3*4#2Z)) /DEN-AFC 
IF (II .EQ. 1) RETUEN 
151 VD=2.0*Y*(W+STE(M)) *R 
VD=VD- (Y* (1. 043. O#FR2/FR3) +3.0*STFE (M) *PFR2/FR3**2) *X 
VE=VD- (W* (2. 043. OX FR2/FR3) +3. 0*STE (M) *(1.0+FR2/FR3) /FR3) *Z 
VD=VE*STF (M) /FR3 . 
UHEN=UHEN+ (VD-FEMD* (W¥Y+43. O*Y*STE (M) * (1. 0+FRZ/FR3) /FR3-3. O*W*STF (M 
1) #FFZ/FR3**2)) ,DEN-AFD 
RETURN 
155 G=SER (J) *DEN+Y4STE (M) * (2.0*W+3.0*STF (M) ) 
VD=3.0% (W* (Y+STF(M) ) -Y**#2*W¥STF (M) * (W+STF(M))/G) *R 
VD=VD- (250*Y+STF (M) * (3. 0-W*Y**2/G) ) *X 
VD=VD+W*(1.0-Y4STE (M) *(2.0*W+3.0*STF (M)) /G) *Z 
UHEN=VE*STF (M) /DEN 
IF(II .LE. 2) KETURN 
VD=3.0*Y* (W+STF(M)) #R-X*Y-(2.0*W+3.0*STF (M)) ¥*Z 
IF(SPR(J)) 2GI. STF(M)) GO TO 156 
UHEN=UHEN+ VD¥*STF (4) *SPR(J) /G 
RETURN 
156 G=DEN+Y*STF (M) *(2.04W+3.0*STF (M) ) /SPR (J) 
UHEKX=UCHEN+VD¥*STF (M) /G 
RETURN 
END 
SUBROUTINE SOLVE(A,W,C) 
CCYMCN NS,NB,STF (225) ,SH(25),SPR( 5),SB( 4),RP(25, 5),UDL(25, 4) 
GONECN (10P (225,2) ,10N (225, 2) , SLE LS (225) ,SLP (225,34) ,BETA(225,2,9)% 
THETA (225)2,6) ,IMA(225,2) »£MO(225,2,2) ,HXD (25) , HNL (25) 
CIMENSICN A(150,11) ,W(150) ,C(25) 
N1=NB+1 
N2=KNB+2 
N3=NB+3 
NE=Z#NE+3 
DC 300 I=1,NS 
DO 290 J=1,N2 
IJ=N2* (I+1) +d 
K1=Id-N2 
EF(JEXEC. N2) K1=K1+1 
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K2=K1+N1 
TEICHCIE CS E1 SHAND C0) S#LE Det) GO To 240 
M=C 
L=0 
LS=N3-J 
TR (USEON N2)(2LS=N2 
DC 230 K=K1,K2 
L=L+1 
TE (Ll HOLS) GO Te 230 
M=M+1 
W (IJ) =W (Id) +A (ID ,M) *W (K) 
230 CCNIINUE 
GC TIC 290 
240 IF(J .EQ. 1) GO 10 290 
W (J) =W(J) +A (0,01) *W (J-1) 
290 CCNIINUE 
300 CCATINUE 
Dc £0C II=1,NS 
I=NS-II+1 
CO 49C JJ=1,N2 
J=N3-JJI 
IJ=NZ* (I-1) +3 
IF(I .EQ. NS) GO TO 450 
K 1=1J+1 
IF(J .~.EQ. N2) GO TO 440 
KZ=IJ+4N2 
L=N2 
M=Nz 
LS=NE-J+1 
DOC 430 K=K1,K2 
L=I1+1 
IF(L .ECQ. LS) GO TO 430 
M=Mh+1 
W (1d) =W (Id) -A (1d ,M) *W (K) 
430 CCKIINUE * 
W (IJ) =W (Id) /A (IJ ,N2) 
GC 10 490 
44Q KZ=IJ4N1 
I=N1 
CC 445 K=K1,K2 
L=1+1 
W (1d) =W (IJ) -A(IJd,L) *W(K) 
445 CCAKLTINUE 
GO 10 480 
450 IF(J .EQ.- N2) GO TO 480 
K 1=1J3+1 
K2=IJ+N1-J 
IF(J .EQ. N1) GO TO 470 
IL=N2 
CLO 460 K=K1,K2 
L=L+1 
W (Id) =W (Id) -A(1IJd,L) *W(K) 
460 CCNTINUE 
470 W(Id) =W (IJ) /A (Id ,NZ) 
GC 10 490 
G80 W(Id) =k (Id) /A (Id ,NE) 
C (1) =W (IJ) 
490 CCNTINUE 
500 CCKTINUE 
RETURN 
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END 
SUEROUTINE SHUKI (Q,SM,GOME) 
CCMMCN NS,NB,STF (225) ,SH(25),SPR( 5),SB( 4),RP (25, 5),UDL(25, 4) 
GGMMCW SIOP (225,2) [ION (225, 2) , SLPLS (225) , SLP (225, 3) , BETA (225, 2,5) » 
ITHETA (225,2,6) ,IMA(225,2) , EMO (225,2, 2) ,HXD (25) , HNL (25) 
CIMENSION SM(25) ,¥ (25) ,Y¥ (25) ,H(25,25) ,HH(25, 25) ,C (25,25) ,D(25,25) 
1,2(25) ,Q(25,25) 
N=NS 
FI=3.141593 
Te (NE EG.1)0GC TO 210 
CO 110 I=1,N 
DC 100 J=1,N 
C (I,J) =Q(I,J) 
D (I,J) =SM (J) 
Ep(dmeetort)) D{(1,J)=0.0 
100 CCNIINUE 
110 CCNIINUE 
CAIL ICKYO1 (N,C) 
CC 140 I=1,N 
DO 140 K=1,N 
ABC=0.0 
DCG 150 J=1,H 
AEC=AEC#C (I,J) *D (J,K) 
150 CCNIINUE 
BH(1,K) =ABC 
H (I,K) =ABC - 
140 CCNIINUE 
KK=0 
NA=N 
10 DC20 1=1,NA 
¥(1)=1.0 
20 CCNTINUE 
KK=KK+1 
KA=2* (KK/2) 
IF(KK «FQ. KA) Y¥(NA)=-1.0 
B=C.000001 
40 DC 50 I=1,NA 
YY (I) =0.0 
EO 360, =1, NA 
YY (I) =YY (I) +H (1, 3) *¥ (J) 
60 CCNIINUE 
Weg LEO. 1) A=YY (1) 
50 CCNIINUE 
IF (ABS (A) .GT. 10.0E-15) GO TO 56 
DISS c= 1, WA 
Y (I) =Y (1) +FLOAT (I) 
S©& CCNIINUE 
GC 10 40 
56 CO 70 I=1,NA 
Y (1) =YY(I)/A 
7C CCNIINUE 
S=A/B 
E=A 
IF(S .GT. 1.00001) Go TO 40 
IF(S .LT. 0.99696) GO TO 40 
URGKK .2E0. HACChaO 75 


AA=A 
DO 71 I=1,NA 
Z (1) =X (1) 


71 CCATINUE 
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GO TO 10 

ZE(AGGGESTAA) GO TO 80 
ayer 

DO 76 I=1,NA 

¥ (1) =Z(1) 

CCKIINUE 

IF(KK .EQ. 2) GO TO 200 
IF (KK .EQ. 4) GO TO 300 
IF(KK .EQ. 6) GO TO 400 
IF (KK .EQ. 12) GC TO 510 
A1=A 

GCME=SQRT (A) 

GG210) 220 

A=SM(1)/0 (1,1) 
GCME=SQRT (A) 
1=2z.0*PFI*GOME 

WRITE (6,230) T 

FORMAT (/1X,*NATURAL PERICD OF FIRST MODE 
IF(N «EQ. 1) RETURN 
WRITE (6,240) (¥(1) ,I=1,N) 


ES rales ot 


SEC. ') 


FCRMAT( 3X,"COBRESPCNDING MODE -- TOP TO BASE'/(3X,7£E18.6) ) 


IF(N.<EQ. 2) GC TO 280 
DC z60 I=1,NA 

CC 250 J=1,NA 

C (1,J) =H (I,J) 

CCNIINUE 

C (1,I)=C(I,1I)+A1 

Z (1) =E (1,1) 

CCNIINUE 

NA=NA-1 

DC 275 I=1,NA 

DC 270 J=1,NA 

H (1,9) =H (I+1, 341) ~¥ (I+1) *Z (J+#1) 
CCNIINUE 

CCNIIKUE 

GesT09 10 

DO 285 I=1,NA 
H(I,1)=H(I,1) -A1 
CCNIINUE 

66" 10510 

ERY Ke¥ECs +2) 4GL) TO1375 
AZ=A 

A=SCB1 (A) 

T=Z.O0*FI¥*A 

WRITE (6,310) T 


FORMAT(/1X,"NATURAL PERIOD OF SECCND MODE IS',F7.3,' 


DO 320 I=1,NA 

Z (1+1) =¥ (I) 

CCNIIKNUE 

Z(1)=0.0 

DC 340 I=1,N 

¥(1)=¢20 

DGa330 J=1,N 

¥ (I) =¥ (1) +C (I,J) #2 (J) 
CCNIINUE 

GE( 1s OW 1) SA=Y (1) 
Y(I)=Y(I)/A 

CCNIINUE | 

WRITE (6,240) (Y(1I) ,I=1,N) 
IF(KK .EQ. 6) GO TO 500 
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IF(N .EQ. 3) GC TC 365 
[Tc 350 I=1,NA 

Y (1) =Z (I+1) 

DO 345 J=1,NA 

CD (1,J) =H(1,J) 
CCNIINUE 

CD (1,1) =D(I,1) ~A2 

Z (1) =E (1,1) 

CCNIINUE 

NA=NA-1 

DO 2:60 I=1,NA 

DC 355 J=1,NA 

H (1,9) =H(I+1,3+41) -¥ (I+1) *Z (Jt+1) 
CCNTIINUE 

CCNITINUE 

GC 1c 10 

CO 370 I=1,NA 

H (1,1) =H (I,1)-A2 
CCNTINUE 

GC 10 10 

A=A+A1 

A=SCRT1 (A) 

T=2.0*FI*A 

WRITE (6,310) T 

WRITE (6,240) (¥(1) ,I=1,N) 
RETURN : 

IF(N .EQ. 3) GO TO 440 
A3=A 

A=SCRT1 (A) 

T=2.0*EFI*A 
WRITE(€,410) T 
FORMAT (/1X,*NATURAL PERICD OF THIRD MCDE 
DO 420 I=1,NA 

Z (I+1) =¥ (I) 

CCNTINUE 

Z(1) =0.0 

N2=NA+41 

DGOEGSS) T=177.N2 

¥ (1) =C.0 

DGS OmI= 1p NZ 

Y (1) =¥ (1) +D (I,J) *Z (J) 
CCNIINUE 

CCATINUE 

NA=N2 

GGRTOMsNS 

A=A+A2 

A=SCR1T (A) 

T=Z.O0*FI*A 
WRITE(6,410) T 

GG BLGwshl> 

LTE(N{1SDE. 3) RETURN 
CAIL ICKYO1 (N,H#) 
NA=N 

Dc 5C6 I=1,N 

DG SSO StI=15N 

H (1,J) =HH (I,J) 
CCNTINUE 

CCAIINUE 

KK=10 

Gc 10 10 
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510 A=SCBKT (A) 
T=Z.O0*FI/SA 
WRITE(€,520) T 
(520 FORMAT(/1X,"THE MINIMUM NATURAL PERIOD LSIGTI SPAR TSECes) 
WRITE (69240) , (Y (1) ,1=4,.N) 
KETURN 
END 
SUEROUTINE TOKYC1 (NO,A) 
DIMENSICN AC (25) ,AE(25) ,A(25,25) 
NO1=NC-1 
A(1,1)=1.0/A (1,1) 
IF (NC .EQ. 1) RETURN 
DC @0 N=1, NO1 
CC £0 I=1,N 
AB (1) =0.0 
AC (1) =0.0 
DC 50 J=1,N 
AB (1) =AB(I) +A (1,J) *A(J,N+1) 
AC (I) =AC (I) +A (N+1,J) *A(J,1) 
50 CCNIINUE 
ACE=0.0 
DO €0 I=1,N 
ACE=ACBE+AC (I) *A (I, N41) 
60 CCNTINUE 
A (N+1,N+1) =1.07 (A (X+1,N+41) -ACB) 
DC 70 I=1,N 
A (N*#1,1) =-A (N41, N#1) *AC (I) 
A(1I,N+1) =-AB (I) *A (N#1,N+41) 
70 CCKTINUE 
CC €0 I=1,N 
DC @0 J=1,N 
A (I,J) =A(I,J)-A(1I,N+t1) *AC (J) 
80 CCKNIINUE 
RETURN 
END 
SUERCUTINE KIKU (DELTATI,C,GOME,Q,GOSA,GR,NCAL) 
CEMPGNONS, NG, ole 2c.) ,oH (25) ,SER( 5) 7,58 ( 4) -RP(25, 5), UDL(25, 4) 
COMMENT TOP 22572) LON (22552) SLPLS(225) 7 SLP (225, 3) > BETAK225, 25.5) 4 
ATRESIA 2e 7c, 0), LMA (225, 2)), PNO(225,2, 2) ,H XD (25) 7HNL (25) 
DIFENSICN €(25) ,€ (25,25) 
DC 100 I=1,NS 
C (1) =2.0*C (I) *¢ (I, I) *GOME 
100 CCNTINCE 
NCSI=KS 
CALL IOKYO1(NOST,Q) 
DC 140 I=1,NS 
HXLT (1) =0.0 
DO 130 J=1,NS 
HXD (I) =HXD (I) -Q(1,J) *HNL (J) 
130 CCNITINUE 
140 CCNIINUE 
DO 150 I=1,NS 
HXI (1) =0.0 
150 CCNIINUE 
WRITE(6,160) (HXD(1) ,1=1,NS) 
160 FORMAT (/1X," INITIAL DEFORMATICN ~- TOP TO BOTTOM'/ (6X, 8E14.5) ) 
TLAST=CELTAT*FLOAT (NCAL) 
WRITE(€,340) DELTAT,TLAST,GR,GOSA 
340 FCEMAI(/1X,*CALCULATIONS WILL BE DCNE EVERY pros ,t 7 oObCeeUNTILG 
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2LEFAIICN OF GRAVITY IS',F8.3,4X,"CCNVERGENCE LIMIT IS',F9.6) 

RETURN 

ENL 

SUEROUTINE JISHIN (SM,CSM,C,IP,IGPH,GK,GOSA,NCAL, DELTAT,MXIT,NSAI, 
INTCEU,THAJI,TCWA,SEICO,Q,1A,AL,LIE,ITIME,IDISC) 

CCHEECK NS,NB,SIF (225) ,SB(25),SPR( 5),SE( 4),RP(25, 5),UDL(25, 4) 

CCENCHSIOR (22592) YION (225,,2), SLES (225), SP (229, 3)), BETA (225, 2,5), 
ITHETA (225,2,6) , IMA (225,2) , PMO (225,2,2) ,HXD (25) , HNL (25) 

DIMENSION GA(7), SM (25) ,CSM (25) ,C (25) » IP (25) » TSEI (25) , AX (25) » VX (25) 
1,XL (2) ,RX (25) -RV (25) ,AA (25) ,CQ (25) p RESC (25) , RESO (25) » RX MX (25) » RVM 
2X (25) ,CCMX(25) , TRX (25) , TRV (25) , TCC (25) , OAX (25) , OVX (25) ,OXD (25), 
3€425, 25) 9AL(150, 11), FT (225,2) ,KOSAN (225, 2) , PCH (5) , XDMX (25) ,AAMX( 
425) ,RCMX (25) ,ROMX (25) ,1R(25) , TRMX (25) ,2Z (25) 

INSA=10 

IF(IGFH .GI. 5) GO TO 10 

GGul0e(1e2)), IGPH 

COMMENT : INPUT STATEMENT (ONLY WHEN EUNCHING OUT THE RESULTS) 
1 READ(5,100) MSKIE,INSA,NPCH, (IPCH(J) ,J=1,NPCH) 
GO. 10. 10 
2 REAL (5,100) MSKIE,INSA 
NECK=NS 
100 FORMAT (1015) 
COMMENT : INPUT STATEMENT 
10 INE=5 
IF(IDISC .EQ. C) INP=4 
READ(INP,15) (ISEI (I) ,1=1,20) 
15 FCRMAT(ZOA4) 

Lbautewalt.5) GC TO: 30 

WRITE (6, 020)» (ISEI (1) ,1=1,20) 

20 FORMAT (/1X,*BLAST LOADING MODEL USED IN THIS CALCULATION : ',20A4) 

WEITE(6, 25) SEICO 

25 FORMAI(/1X,'MAXIMUM BLAST LCAD IS',F8.2,* AT THE LEVEL WHERE THE L 
1GAL FACTOR IS EQUAL TO 1.0'/) 
GC 10 45 

30 WRITE(6, 35) (TISEI(I) ,I=1,20) 

35 FORMAT(/1X,"SEISMIC MODEL USED IN IHIS CALCULATICN : ',20A4) 

WRITE (6, 40) SEICO 

GO FCRMAT (/1X,*MAXIMUM GRCUND ACCELERATION IS',F6.3,' OF GRAVITY ACCE 
JLEBATION'/) 

H5 ZEC(IGEW rsG Tey 5) GC TO 60 
TKAN=LELTAT*FLCAT (MSKIP) 
GC 10 (46,56), IGPH 

46 WRITE (6,50) TKAN, (IPCH (J) ,J=1,NPCH) 

50 FOFMAT( 1X,'THIS PROGRAM EUNCHES OUT THE RESULTS OF EVERY',F6.3, 
1UeSEC sy FOR THE STOREYANG.',5(15,",')/) 

WRITE (7,55) TKAN,NS,NPCH, (IPCH (J) ,J=1,NPCH) 

6G TC 60 

56 WRITE (6,57) TKAN 
57 FCFMAT(1X,*THE RESULT OF EVERY',F6.3,'SEC.,FOR EVERY STOREY IS STO 
1REL IN THE DISK'/) 
WRITE (2,55) TKAN ,NS 
55 FCRMAI(F10.3, ¢$X,"PRODUCED BY PROG.# 40',5X,715) 
60 WRITE(6, 65) 
65 FCRMAT( /1X,'** RESPONSE **') 

LE GLMSA eal Ds ec)eeGO: TO: 111 

EE(hEE aeGE. 5) GO TO0°75 


WRITE (€, 70) 
70 FCRMAT (/2X,*TIME*,3X,'GRND ACC/",3X,*LISP TO GRND',3X,'RELIV DISP' 
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GC 10 85 

75 WRITE(€, 80) 

80 FCEMAT (/2X,"TIME*,3X,*BLAST LD/',3X,*DISP TO GRND',3X,'RELIV DISP! 
1,4X,"RELTV VELC' ,4X,"ABS ACCEL',3X,"RESIS (DAMP) ',2X,*RESIS (SPRN) 
2',3X,"SHEAR CCEF*,3X,"TIME',7X,"ITER") 

8£ WRITE(6, 90) 

90 FCEMAT(12X,"STOREY') 

111 CALL STIFF (Q,1,A1,1A,1ISHUT) 
IF(ISHUT .EQ. 1) RETURN 
ISAI=10 
DO 120 K=1,NS 
AX (K) =0.0 
VX (K) =0.0 
IF (ABS (HXD(K)) 11. 1.0E-06) HXD(K)=0.0 
XD (K) =EXD(K) 
KXMX (K) =0.0 
TRX (K) =0.0 
RVMX (K) =0.0 
TRV (K) =0.0 
CiCRX (K)=0. 0 
TCC (K) =0.0 
TEMX (K) =0.0 
X DMX (K) =0.0 
AAMX (K) =0.0 
RCMX (K) =0.0 
RCMX (K) =0.0 
ZZ (K) =GR/1.0E+#15 
120 CCNIINUE 
MEMB= (2*NB+1) #NS 
DC 125 I=1,MEME 
DC 124 K=1,2 
KCSAN (I,K) =0 
124 CCNIINUE 
125 CCNIINUE 
DC £0C I=1,NCAL 
TRIN EC. 1) READ (INP, 130) (GA(J) -J=1,7) 
130 FORMAT (7F10.0) 
I YOMU=7* (1/7) 
IF(I1 .EQ. IYOMU .AND. I «LT. NCAL) READ(INP,130) (GA(J) ,J=1,7) 
I1=1-7# ((I-1) /7) 
IF(I-1) 140,140,150 
140 GA d=0..0 
GAz=0.0 
GA2=GA (II) *SEICO 
TE(NCAL JET. 1), Go To 444 
Gad=0n.0 
GO IC 160 
141 GA4=GA(II+1) *SEICO 
GO 1C 160 
15C GA1=GA2 
GAZ=GA3 
GAZ=Ga4 
TE(IAR EO. NCAI) GC TO 151 
Dende 2 EO.8e?) Me GOUTON152 
GAW=GA (I1I+1) *SEICC 
GC 10 160 
151 GA4=0.0 
GC IC 160 
152 GA4=GA (1) *SEICC 
160 GAE=GA3 
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TE=FLOCAT(I) *DEITAT 
CC 180 K=1,NS 
CAX (K) =AX(K) 
OVX (K) =VX (K) 
CXL (K) =XD(K) 
190 CCNIIKUE 


Pe P 


CALL SUCHI (AX,VX,XD,RX,RV,SM,C,CSM,GAP,DELTAT, KAZU, RESC, RE!:Q, MXIT 


1,1E,ISAI,GOSA,C,2Z) 
TP(ISHD SGEMIC) GO To 210 
205 DO 206 K=1,NS 
AX (K) =CAX (K) 
VX (K) =CVX (K) 
XD (K) =OXD (K) 
206 CCNIINUE 


CALL SAIBUN (ISAI,AX,VX,XD,NSAI,IP,DELTAT,RX,RV,SM,C,CSM,KAZU, RESC 


1,RESC,MXIT,GOSA,GA1,GA2,GA3,GA4,C, IA, AL, KDIS, FT, KOSAN, LSHUT, ZZ) 


IF(ISBUT .EQ. 1) GO TO 510 
IF (KDIS .LE. 0) GO TO 510 
GOMITONZ14 
210 CALL KYOTO(XD,IA,AI,ICHI,FT,1) 
Pr(ICHI SLE. 0}) iGO 10 72148 
GC 10 205 
214 TE LTE GEA? 5)ScGort0'225 
DC 215 K=1,NS 
AA (K) =AX (K) +GAE 
215 CCKIINUE 
CCN=0.0 
CO 220 N=1,NS 
CCN=CCN-SM(N) *AA (N) 
TK (KN) =CCN 
CC(N) =RESQ(N) /CSM(N) /GR 
220 CCNIINUE 
GCEtrONZ 20 
225 DCR 2'6 OK=a NS 
AA (K) =AX (K) 
226 CCNIINUE 
TOTM= CLO 
CCK=0.0 
Powz2 st NEE NS 
TCIM=TOTM+SM (N) 
CCN=CCN-SM(N) *AA (N) 
TR (N) =CCN-CSM (KX) *GAE 
CC (N) =RESQ (N) /IOTM/GR 
22€ CCNIIKUE 
2300 TFQaONSA ALT. 5) "CO. 10. 275 
TF (KICED™ EO." 0)%6c* To" 239 
NIC=I/NTOBU 
NIC=NIC*¥NTOBU 
TENNTC Oe NETO) GOeTO e275 
239 bel 27CRk=1), NS 
TE KERNES* Al MGC TOP 250 


WRITE (6,240) TE,GAP,XD(1) ,RX(1),RV (1) ,AA (1) ,RESC (1) ,RESQ(1),CQ(1), 


1TE,KAZU 


240 FCRMAT (1X, F6.3,1%,F10.5,1P7E14.5,0FF7.3,110) 


GO IC 270 


250 IF(iee ect. THAJI -AND. TP «LT. TOWA) 


UFIennyeeLt. Cc) GO.TO 270 


255 WRITE (6,260) K,XD(K) ,RX (K) ,RV(K) -AA(K) ,RESC (K) , RESQ (K) ,CQ(K) 


26C FCEMAT(13X,15,1P7E14.5) 
27C CCHIINOVE 
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[Cc 250 K=1,NS 

IF (ABS (RXMX(K)) .GE. ABS(RX(K))) GO TO 31C 

RXMX (K) =RX (K) 

TRX (K)=TE 

IF (AES (RVMX(K)) .GE. ABS(RV(K))) GC TO 320 

RVMX (K) =RV (K) 

IRV (K) =IP 

IF (ABS (TRMX (K)) «GE. ABS(TR(K))) GO TO 325 

T RMX (K) =TR (K) 

IF (ABS (XDMX(K)) «GE. ABS(XD(K))) GC TO 326 

X DMX (K) =XD (K) 

IF (ABS (AAMX(K)) .GE. ABS(AA(K))) GO TO 327 

AAMX (K) =AA (K) 

IF (ABS (RCMX (K)) -GE. ABS(RESC(K))) GO TO 328 

RCMX (K) =RESC (K) 

IF (ABS (RQOMX (K)) «GE. ABS(RESQ(K))) GO TO 330 

ROQMX (K) =RESQ (K) 

CCMX (K) =CQ (K) 

TCQ(K) =TP 

IF(ZZ(K) .GE. ABS(AX(K))) GO TO 350 

ZZ (K) =ABS (AX (K)) 

CCNIINUE 

IF(IGEH .GT. 5S) GO TO 450 

NTIC=MSKIP* (I/MSKIP) 

IF (NTC .NE. I) GC 10 450 

DC 280 N=1,NPCH 

GC TO (335,36C), IGPH 

K=1ECH (N) 

KEIM=NS-K+1 

WRITE(7,370) KPETM,TE,XD(K) , RX (K) ,RV(K) ,AA(K) ,RESC (K) ,RESQ(K) ,CQ (K) 

GC 10 280 

K=NS-K+1 

KETM=N 

WRITE(2,370) KETM,TP,XD(K) ,RX(K) ,RV(K) ,AA(K) ,RESC (K) , RESQ(K) ,CQ (K) 

FCEMAT (12, F8.2,1P7E10. 3) 

CCNTINUE 

CALL NARA(KDIS,F1,KOSAN,1P) 

Ur KDisieeal es Oj)N.GC TO. 510 

CALL TIME(1,0,LTIME) 

IF(1TIME .GE. ITIME) GO TO 510 

CCNIINUE 

WEITE (6,520) 

FORMAT (//1X,"LIST OF MAXIMUM VALUES") 

WRITE (6,530) 

FORMAT (/3X,'SIRY',2X,"DISP TO GND',3X,"RELTV DISP - WHEN',4X,'RELT 
1V VELC - WHEN',4X,*ABS ACCEL',3X, "DAMP RESIS',3X,'SPRN RESIS*,3X,° 
2SHEAR COEF-WHEN',2X,'TOTAL SHEAR‘) 

Do 550 K=1,NS 

WRITE (6,540) K,XDMX(K) ,RXMX (K) ,TRX (K) ,RVMX (K) , TRV (K) ,AAMX(K) , RCMX ( 
1K) , ROMX (K) ,CGMX (K) -TCQ (K) , TRNX (K) 

FOFMAT(2X,14, 1PZE13.3,2(0PF8.3,1PE13.3) , 1P2E13.3,0PF10.4,F8.3, 
11PE 13.3) 

CCNIINUE 

TR(iGEH).GT. 5 ) GC TO 600 

PEMUGE RE. EQ. 1). GO) .10).553 

IXXXXX=0 

Kook Y=0. 0 

DGmeS Za J=10, NS 

Poms5 testy 4 

WREIE (2,270), TRXXXX, XXXXXX 
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551 CCNIINUE 
552 CCNIINUE 
WRITE (3,555) 
GC 10 557 
SSSEN HITE (77555) 
555 FCRMAIT(T55,"*MAXIMUM VALUES, PROG.# 40°) 
557 DO £70 J=1,NS 

K=NS-J+1 

RXMX (K) =ABS (RXMX (K) ) 

RVMX (K) =ABS (RVMX (K) ) 

CCMX (K) =ABS (CCMX (K) ) 

TE (IGERWsEOus2) GO TO 558 

WRITE(7,560) RXMX(K),TRX(K) ,RVMX(K) ,TRV(K) ,CQMX(K) ,TCQ(K) 

GEs1CHS70 

558 WRITE (3,560) RXMX(K) ,TRX(K) ,RVMX (K) , TRV (K) ,CQMX(K) , TCQ(K) 

560 FCEMAT (3(1PE10.4,0PF10.3)) 

570 CCKNIINUE 

600 IF(LTIME .GE. ITIME) WRITE(6,610) IP 

610 FCKMAT (//1X,"** CALCULATICN OF RESFONSE WAS TERMINATED BECAUSE PRE 
TEAREL COMPUTATION TIME HAD BEEN EXPIRED. ** TP=' ,F7.3/) 
WRITE (€,999) 

99¢ FCKMAT (1H1) 

RETURN 

END 

SUEFOUTINE SAIEUN (ISAI,AX,VX,XD,NSAI,TP,DELTAT,RX,RV,SM,C,CSM, 
1KAZU, RESC,RESC,MXIT,GOSA,GA1,GA2,GA3,GA4,Q0,1A,A1,KDIS,FT,KOSAN, 
2ISHD1,22Z) 

COLPVEKR INSP NBYSTIEW 225) 5S h(25),5PR (eS) ,SB( 4), 8P (25, 5) ,UDL(25, 4) 

CONMENEIOR (225 ,2)),10N (225, 2), SLE LS (225) 7SLP (225-3) , BETA (22572,5) 4 
ATHE DAU 2 25; 2,6) ,0NA (225,2) 7240 (225,2,2) ,HXD (25), HNL (25) 

CUMENSIOND AKA 25) (VX (25) ,XD (25), RX (25) FRY (25) 7S" (25), C (25), CSM 125) , 
1RESC (25) , RESO (25) 0 (25, 55) ADCS 0, a Li bee pe) phOSANI 225 72), 
222 (25) 

SAIN=FLOAT (NSAI) 

TE=TE-DELTAT © 

CO 460 J=1,NSAI 

TBUN=FLOAT (J) /SAIN 

TEF=TP+DELTATI/SAIN 

GAP= (GA4=3.0*GA3+3.0*GA2- GA1) *TBUN**3/6. 0+ (GA3-2.0*GA2+GA1) * TBUN** 
12/2.0- (GA4-6.0*CA3+43.0*GA2+2.0*GA1) *IBUN/6.0+GA2 

CALLE SUCHIN (AX), Va XD, RXGRV,SM>C,CSM;GAP, DELTAT/SAIN, KAZU,RESC, RESO 
AW, MXOAZ TE ISAT, COSA Ch ZZ) 

CULISKYOTOUXDG I AGAIGICHIG FT, 2) 

LTEFNDCEIO. LE. 0) GO TO 456 

Re 4554 :K=1,NS 

HXD (K) =XD (K) 

HNL (K) =RESQ (K) 

455 CCNTIINUE 
CALICUT OFF (070., AD, TA, ISHUT) 
IF(ISHUT ~EQ. 1) RETURN 

USE IF(J .EQ. NSAI) GO 10 460 
CALL NARA (KDIS,FT,KCSAN,TE) 
IF(KCDIS .~LE. 0) RETURN 

460 CCNIINUE 

ISAI=10 

RETURN 

ENC 

SUEFOUTINE SUCHI (SAX,SVX,SXD,RX,RV,SM,C,CSM,GAP,DELTAT, KAZU,RESC, 
1RESC, MXIT,TP,ISAI,GOSA,Q, 22) 

CCMNCK NS,NB, STF (225), SH (25) SPR ( S)7 SBS) GRE (2D yoy UDL (2oy 4) 


(AVOIT. CH) XHQO, (4) VAT, Cm) XR, unter, . 
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CCEMCN IOP(225,2) ,ION(225,2), SLELS (225) , SLP (225, 3) , BETA (225,2,5) 
THETA (225,2,6) , IMA (225, 2) ,PMO(225,2,2) -HXD (25) , HNL (25) 
LIMENSION UX(25£) ,UA (25) ,RX (25) ,RV (25) , SAX (25) ,SXD (25) ,SVX(25), 
1SM (25) ,C(25) ,CSM(Z£) , ICOL (25) , RESC (25) , RESQ (25) ,UV(25) ,U(25), 
2C(z£, 25) ,ZZ(25) 

KAZU=0 

MXIJ=MXIT/2 

DC 100 N=1,NS 

UA (N) =SAX (N) 

CCNIINUE 

KAZU=KAZU+1 

DC 120 N=1,NS 

UV (N) =SVX (N) + (SAX (N) #UA (N) ) *DELTATs2.0 

UX (N) =SXD (N) + (SVX (N) + (SAX (N) /3.04UA (N) /6.0) *DELTAT) *DELTAT 
CCNIINUE 

DC 200 N=1,NS 

NN=N-1 

CMA=0.0 

IF(N .FQ. 1) GO 10 140 

DO 130 K=1,NN 

CMA=CMA+SM (K) #0A (K) 

CCNIINUE 

IF(N .NE. NS) GO TO 150 

ST=CMA+GAP*CSM (N) 

GC 10 160 

ST=CMA+GAP¥*CSM (N) -C (N) *UV (N+1) 

RES (4) =QQ (N,Q,UX) 

U(N) =-(C(N) *UV(N) +RESQ(N) ST) /SM (N) 

CCNIINUE 

JHAN=0 

DO 400 N=1,NS 

ICCL (N) =0 

BUNEO=ABS (J (N)-UA(N) ) /GOSA/100.0+1.0E-35 
SHI=1.01*ABS (U (N)-UA(N) ) / (ABS (U (N) ) +EUNBO) 

IF (SHI .-LT. GOSA) GO TO 400 
SHI=10.0*ABS (U (N)-UA(N)) /22Z (N) 

Br(ShHi.LT. GOSA) GO TO 400 

JHAN=JHAN+1 

ICCL(N) =ICOL(N) +1 

CCNIINUE 

IF(JHAN -EQ. 0) GO TO 450 

IF (KAZU LT. MXIT) ‘GO TO’ 420 

PECs rr CFL TS Po) co Sto. 1405 

ISAI=-10 

GC TO 450 

MXII=MXIT+1 

TF (WAZ@™.EQ. MXII) GO TO 411 

DO 410 N=1,NS 

PR(Icov(N) .EO. 0) Go fo 410 

WRITE (6,406) N 

FOFMAT(1X,'CONVERGENCE IS NOT ENOUGH AT STOREY NO.*,13) 
CCNIINUE 

DO 415 N=1,NS 

IF(ICCL(N) .EQ- 0) GO TO 415 

WRITE (6,412) TE,N,UX(N) ,UV(N) ,U(N) ,RESQ(N) ,KAZU 

FCRMAT (1X,F6.3,6X,15, 1PEV4.5, 7X, E1425, 7X, 614.5, 14X,E14.5,21X, OPI 10 
1) 

CCNIINUE 

IF (KAZU .EQ. MXII) GO TO 450 

IF(KAZU .EQ. MXIJ) GO TO 440 
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DC 430 N=1,NS 
UA (N) =U (N) 
430 CCNIIXNUE 
GC 10 140 
440 DC 44s N=1,NS 
UA(N) =(UA(N) +U (N)) 72.0 
445 CCNIINUE 
MXIJ=MXIJ+¢ (MXII-MXIVJ) /2 
GC 10 110 
450 DO 455 N=1,NS 
SAX (N) =U (N) 
SVX (N) =UV(N) 
SXD (N) =UX (N) 
45S CCNTINUE 
CC 470 N=1,NS 
IF(N .EQ. NS) GO TO 460 
RX (N) =SXD(N) -SXD (N+1) 
FV (N) =SVX(N) -SVX (N41) 
GC 10 465 
460 RX (NS) =SXD(NS) 
RV (NS) =SVX (NS) 
465 KESC(N) =C(N) *RV(N) 
47C CCKIINUE 
RETURN 
END 
FUNCTICN QQ (N,Q,SXD) 
COMME haNS, NG; SiIli(225) 47525) , SEN (5) ,580 4), REN 25, 5) ,UDL (25, 4) 
CEP MCNELOPM 20 552) FON (225, 2) , SLP1LS (225) , SLE (225,38) , BETA (2257275), 
WIE PAN 2255250) ,1 MA (225,2) ,ENO(225,2, 2), HKD (25)-, HNL (25) 
DEVENS ONE OX 25825) %SXD(25) 
cc=C.C 
DC 100 I=1,NS 
SHXLD=SXD (I) -HXC (1) 
CC=CQ+C (N, 1) *SHXD 
100 CCKIINUE 
CC=HNI (N) +QC 
RETURN 
END 
SUEROUTINE KYOTO (SXD,IA,AL,ICHI,F1,1I1IQ) 
CCMPCK NSPNBY SIF (225) | SH(25) FSPR() 5) 5 SBX~4) ,RP(25, 5),UDL(25, 4) 
COMMCNELLOPH2 2582) , TONN 225, 2), SLPLS(225) sSLPU22558) ,BETA(225,2,5) , 
ATH EMLAG(Z2S7 2:16) fol MAN( 225% 2) 1, ENO 22:54 2,12) BXD (25) , HNL. (25) 
DIMENSION SXD (25) , EB (150) ,AI (150,11) , FT (225, 2) , EM (2) ,CCC (25) 
ICHI=C 
DOP MO0MI= 1,11 a 
EE (1) =E(1I,SXD) 
100 CCNTINUE 
NE1=NB+1 
NB2=NB+2 
NEE=2*NB+1 
CALL SCLVE(AI,EB,CCC) 
DO GOCUT=It NS 
OP (ie oeos NS) GO°TC 110 
R= (SXL (I) -SXD (1+1) ) /SH (I) 
GC 10 120 
110 R=SXLD (NS) /SH(NS) 
120 Wa ecsS.CN= Nee 
M=NEE* (1-1) +d 
IF (STE (M) ~LT. 1.0£-30) GO TO 250 
JJ=J-NB 
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hR(G).GES NB1) GO TO 130 
KA=NB2* (I-1) +J 
KE=KA+1 
GC Ic 1&0 
130 KA=NBz* (I-1) +J-NB 
BE Gaver O. NS)? GOULTC 3180 
KE=KA4¢NB2 
140 FA=EE (KA) 
IF(I «FQ. NS .AND. J .GE. NB1) GO 10 150 
FR=EB (KB) 
150 IF(J .GE. NB1) GO TO 160 
SS=SB (J) 
FRI=RE(1I,J)/SS 
FR2=RE (I,J+1)/SS 
FR2=1.0-FR1-FR2Z 
UL=UDL (I,J) 
DCeelaSaik= 15, 2 
CATT; 220 (VA,VE-N,K,FR1,FR2,1,-1) 
EM (K) =VA*PA+VE*PE-UBEN (M,SS,K,UL,0.0,FR1,FR2,1,-1) 
155 CONTENUE 
FEM=-UL*(FR3*SS) **2/712.0 
FI(M,1) =~(2.0#EM (1) -EM (2) -3.0* FEM) *FR3/STF (M) /3.0+(1.0+FR1/FR3) *PA 
14+FEZ*EB/FR3 
FT (M, z) =~ (2.0¥*EM (2) -EM(1) +3.0*FEM) *FR3/STF (M) /3. O0+FR1I*PA/F R3+ (1. 0+ 
TFRZ/FE3) *PB 
GGe TO, 180 
16C SS=SH (I) 
Pitter O. NS) GO TO) 170 
DG OSs K=1,2 
CAI eUMMOVA GV Ey Mig hs Os Ug ~ 0, tel) 
BACK VAS PAV ESP E-UHEN (MPSS eh, Ou, ne Os 0,0. 05 1-4) 
165 CCNIINUE 
GCeIGet?5 


170 CALL IZU (VA,VE,M,1,0.0,0.0,-1,-1) 
EM (1) =VA*PA-UBEN (M,SS,1,0.0,R,0.0,0.0,-1,-1) 
CALL IZU (VA,VE,M,2,0.0,0.0,-1,-1) 
EM (Z) =VA*¥PA~UHEN (M,SS,3,0.0,R,0.0,0.0,-1,-1) -EM (1) 
IF(SPR(JJ) «LE. 1.CE-5) GO 10 175 


EF B=-Eé (2) /SPR (JJ) 
175 FI (M,1)=—-(2.0*EM (1) -EM (2) ) /STF (M) /3.0+PA-R 
IF(I .FQ. NS .AND. SPR(JJ) .LE. 1.0E-5) GO TO 180 
FT (M,Z) =- (2.0¥*EM (2) -EM (1) ) /STF (M) /3. 0+PB-R 
180 DC+220;K=1,2 
IF(I .EQ. NS «AND. J .GE. NB1 .AND. SPR(JJ) «LE. 1.0E-5) GO TO 220 
IF (IMA(M,K)) 2Z10,2C60,1S0 
190 ICCN=IMA (M,K) 
IF(FT(M,K) -GE. THETA(M,K,ICON) «AND. FT(M,K) .LE. THETA(M,K,ICON+ 
11) )eeGC TQ 220 
IF (FI(M,K) .GE. THETA(M,K,ICON+1)) GO TO 195 
ICHI=1CHI+1 
Le (ii Ge. FO. 1) GO Tc 220 
IMA (M,K) =IMA(M,K) ~IOP (M,K) 
GG-1G).220 
195 IF(IMA(M,K) .EC. 2) GO TO 220 
ICHI=ICHI+1 
EEIGC @EO. 1) GO 10°220 
IMA (M,K)=IMA (M,K) +1 
GO TO 220 
200 IF(EM(K) .GE. EMC(M,K,2) -AND. EM(K) «LE. PMO(M,K,1)) GO TO 220 
ICHI=1CHI+1 
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TGS eC. 1) GO TO 220 
IF(EM(K) .LE. PMO(M,K,2)) IMA (M,K) =-ION(M,K) 
IF(EM(K) «GE. EMO(M,K,1)) IMA (M,K) =IOE (M,K) 
GGCTCN220 
‘210 ICCN=2-IMA (M,K) 
IB(ET (MK) IGESITHETA(M,K,ICONt+1) . AND. FT (M,K) .LE. THETA (M,K,1CO 
ING. fro! 220 
IP (FI(HPK) ) SLE. IBETA(M,K,ICON+1)) GO TO 215 
ICEI=ICHI+1 
TE (PIGL ILO. 11) iGO MO R220 
IMA (M,K)=IMA (M,K) +ION (M,K) 
GO 1C 220 
2150LE(IMAUMPAK)) eECETS2) .GOTTO=220 
ICHI=ICHI+1 
TEUTICPLECZS APACS TO 220 
IMA (M,K) =IMA(M,K)-1 
220 CCNTIINUE 
250 CCNIINUE 
300 CCNTINUE 
FEIURN 
END 
SUEFOUTINE NARA (KDIS,FT,KOSAN,TP) 
CEMUCH NST NBPSTFAU225),SH(25) ,SER( 5),SB( 4) ,RP(25, 5),UDL(25, 4) 
COMMG NE IOPN2255 21% ION 2E5),2)5 SLPIS (225) ,SLP (225, 3) , BETA(225, 2,5)» 
ATRET A265, 2,6) ,1MA(225,2) ,ENO(225,2, 2) ,HXD (25) , HNL (25) 
LIMENSION FT(225,2) ,KOSAN(225, 2) 
KC1IS=10 


DO 360 I=1,NS 
DO 350 J=1,NBB 
M=NBE* (I-1) +J 
CER=2.5¥*STF (M) 
DCO. iK=1, 2 
IF (IMA(M,K)) 100,340,100 
100 IF(KCSAN(M,K) .EC. 0) GO TO 110 
TEI (I MAI (MY.K)) <1G De 0) e GO ito 180 
GO 10 170 
110 KOSAN(M,K)=1 
PHCIUM..GCE. VN BANE GO, §1.0/5 1120 
Gh ePO.Pe1i1,194 1 159%. K 
111 WRITE (€,112) I,3,TP 


11Z FCRMAT(1X,*YIELD AT THE LEFT END CF THE BEAM -- STOREY NO.',I2,", 
1 TEEAY (°NO.. ADI AUS PATINE' YET aia! SEC. *) 
Ge mo 128 

115 WRITE(6,116) I,J3,TP | 

116 FCRMAT(1X,"YIELD AT THE RIGHT END OF THE BEAM -~ STOREY NO.',13,', 
1eCHaVEINO.', 13,'* TIME’, F7.3,' SEC.') 
GO 10 128 


120 JC=J-NB 
GE 400 «€ 1217125) FORK 
121 WRITE(6,122) I,JC,TP 


422 PCRBAT(IX SP SYIELD AT THE TOP CE THE: COLUMN. —=" STOREY NOa ply 4, 
1POCCHS INOXt ALSPLPESTIAE' FRSA TSEC’) 
GO 1C 128 

12& WRITE(Gp7126) I,JC,1P 

126 FCRMAT(1X,*YIELD AT THE BCTTCM OF THE COLUMN -~- STOREY NOs ge gene 


4FOCOL! INOS! PTS, AS PRTINE' GET .37ReSEESS) 
128 IF (IMA(M,K) -GI. 0) GO TO 130 
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GO IC 170 

IF(FI(M,K) «GE. THETA(M,K,3)) GO 10 210 

IE=IMA (M,K) 

ICE (M,K) =IP 

IN=ICKN (M,K) +3 

THETA (M,K, IP) =F1 (M,K) 

YE=SLE (M,IP+1) *FT (M,K) +BETA (M,K, IP+1) 

EMC (M,K,1) =YB 

IF(SLE(M,1) «GE. STF(M)) GO TO 140 

Foreman ar) eee arr mn) eaters TSU Eel a oke 
F)) 

GC 10 150 

DX= (F1(M,K) -THETA (M,K,1IN) - (YB-PMO(M,K,2) )/SLP(M,1)) /(1.0-SLPLS (M) / 


ISLE (M,1)) 

LY=SLELS (M) *DX 

EMC (M,K, 2) =PMO(M,K, 2) +DY 

IF (SLE(M,1) .GI. CER) GO TO 155 
_EETA(M,K, 1) =YB-SLE (M, 1) *FT (M,K) 

DO 160 KK=IN,6 

THETA (M,K,KK) =THETA (M,K,KK) +DX 

IF (KK .EQ. 6) GO TO 160 

INN=IN-2 

LE=DY-DX*SLP (¥,INN) 
EETA(M,K, IN) =BETA(M,K,1N) +DB 
CCNIINOE 

GO 10 240 

IF(FI(M,K) «LE. THETA(M,K,6)) GO TO 210 
IN=-IMA (M,K) 

ICK (M,K)=IN 

IE=IOE (M,K) 

THETA (M,K, IN¢3) =FT (M,K) 

YB=SLE(M, IN+1) *FT (M,K) +BETA (M,K,1N+3) 
EMC (M,K,2) =YB 

IF(SLE(M,1) .GE. STF(M)) GO TO 180 
DX=(SLP (M, 1) * (FT (M,K) - THETA (M,K,IP))-~YB+PMO(M,K,1))/ (SLP (M, 1) -SLPL 


TS (E)) 


GC 10 190 

DX= (F1(M,K) -THETA (M,K,1IP) -(YE-EMC (M,K, WAYS 1))/(1.0-SLPLS(M) / 
ISLE (M,1)) 

DY=SLELS(M) *DX 

EMC (M,K,1)=EMC (M,K, 1) +LY 

IF(SLP(M,1) .GI. CER) GO TO 195 

BETA (M,K,1)=YB-SLE (M,1) *FT (M,K) 

[CC z0C KK=IP,3 

THETA (M,K, KK) =THETA (M,K, KK) +DX 

IF(KK .EQ. 3) GO TO 340 

DB=CLY-DX*SLE (M,IE+1) 

EETA(M,K,IP+1) =BETA (M,K,IP+1) +DB 

CCNIINUE 

GO 10 340 

KDIS=-10 

IF(J -GE. NB1) GO 10 260 

GO 10 (220,240), K 

WRITE (6,230) I,J,TE 

FORMAT (/1X,'COLLAESE AT THE LEFT END OF THE BEAM -~ STOREY NO.',I 
Tae MEAYEONO. §, 10," see TIMES; Fd edit) SEC. *) 

GC 10 340 

WRITE(6,250) I,J,TP 

FORHAT (/1%, \CCLLBESE AT THE RIGHT END OF THE BEAM -- STOREY NO.',I 
135 FAY NO.*,13,"3; TIME',F7.3," SEC. °) 
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GC IC 240 
26C JC=J-hB 
GO TO (270,290), K 
27C WRITE (6,280) I,JC,TP 


280 FORMAT (/1X,*COLLAPSE AT THE TOE OF THE COLUMN -- STOREY NO.',I 
Tree COLCENOs (piss 7 | ati NEA peer mor Ce. } 
GC 10 340 

290 WRITE (6,300) I,JC,TP 

300 FOFMAT(/1X,"*COLLAESE AT THE BOTTCM OF THE COLUMN -- STOREY NO.',I 
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340 CCNIINUE 
350 CCNIINUE 
360. CCNIINUE 

RETORS 

END 
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Appendix E. 


BLAST LOADS ON A STRUCTURE 


E-l Determination of Blast Loads on a Structure. 

The blast loads considered in this dissertation are 
assumed to be caused by blast waves accompanying a nuclear 
explosion in the air. The characteristics of blast waves 
have been investigated by the United States Department of 
Defence and other affiliated agencies and research insti- 
tutes. Refs. 14 through 22 provide useful information 
concerning the nature of blast waves and the magnitude of 
the blast loads which could be applied to a structure at a 
particular “site; 

Summarizing the available information, the following 
steps are used to determine the blast loads acting on 
structures for the purpose of the present investigation. 

STEP 1: Estimate the size of burst, W (KT, TNT), 
height of burst, h (feet), the location of the building 
from G.a2, (ground zero), dad (Leet) > and tie orlentatroneoL 
the building. Here G.Z. is the point on the earth's surface 
immediately below the point of detonation. 

The objective of™Stepsy2 to"9 is*to find *the *over- 
pressure, p(t) (psi), dynamic pressure, q(t) (psi), and the 
shock front velocity, U (ft/sec), at the site of the build- 
ing. These values do not depend upon the shape or type of 


building. Od 
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STEP 2: Find the scaled height of burst, hy (feet), 


as: 


hy = = - (E-1) 


A 1 KT (TNT equivalent) burst at height h, would produce 


1 
the same effect as a W KT burst at height h when observed 
at the site immediately below the point of detonation, 


according to the scaling law. 


STEP 3: Find the scaled distance from G.Z., dy (feet), 
as: 
Ay s- oe (E-2) 
1 phy 


The pressure at the distance dy LrOMNe G2 elOledwie hkl DUrS te 


at height h, would be the same as the pressure obtained at 


At 
the distance d from G.Z. for a W KT burst at height h, 
according to the scaling law. 

STEP 4: Find the maximum overpressure, p (psi), using 
the pertinent graph prepared for al KT burst. Depending 


upon the values of scaled height and distance, the following 


figures are used. 


For dy EAN hy er O.0 Oi. eee ames et 
For dy <8/000), hy <=500 Ba, (lee fye ale) 
For surface burst, h,=0 veg MoBTefS Nam 


STEP 5: Find the horizontal component of the peak 


dynamic pressure, q (psi), using Fig. E-3, prepared for a 
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1 KT burst, by entering with the scaled height and distance. 
The values p and q obtained in the preceding two steps 
are also the peak overpressure and the horizontal component 
of the peak dynamic pressure, respectively, for the burst 
and building location described in Step 1. 
STEP 6: Find the positive phase duration of the over- 
pressure, 


(sec), and the dynamic pressure, (sec), 


Chg] 
for an equivalent 1 KT burst using Fig. E-4. Then apply 


ipl 


the scaling law to find the actual durations of the over- 


pressure, “iS (sec), and the dynamic pressure, crus (sec), 


for the W KT burst as: 


de 1/3 . 
a = Eel W (E-3) 
an 1/3 Za 
Erne Be dal W (E-4) 
STEP 7: Determine the overpressure, p(t) (psi), and 


the horizontal component of dynamic pressure, q(t) (psi), 
aSmEUNCLCIONS: OF tIMesUSINgG@h10..5-omandurlO. sho, e LespeC ue 
ively. Both are functions of peak overpressure, p, and are 


expressed by: 


p(t) = p(l--) e t/tip (E-5) 
+p 
and 
Edel aa Te SO Areal (E-6) 
+q 


respectively, which are valid approximately when the peak 
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overpressure is less than about 10 psi. In the above 
equations, t (sec) is the elapsed time after the arrival 
of the shock front. The peak overpressure is assumed to 
occur almost instantaneously with the arrival of the shock 
Peo 

STEP 8: Find the shock front velocity, U (ft/sec), 
USINGME Gas he 7awn This is, alsoi a function of the peak 
overpressure, p. 

STEP 9: The arrival time is obtained from Fig. E-8. 
This value is not necessary to find the blast loads on a 
structure but it may give useful information in designing 
the building. For instance, the availability of warning 
time may change the design attitude. 

Knowing both the overpressure function, p(t), and the 
dynamic pressure function, q(t), at the location of the 
building, the blast loads on the building, assumed in this 
case to be a closed box-like structure oriented parallel to 
the direction of the wave, are calculated as follows. 

Steps 10 to 12 determine the average horizontal load 
tombe cappiied: toyaesitructure: 

STEP (10: 4 Find the: reflected overpressure, p, (psi), 
from Fig. E-9. The angle of incidence, a, is as shown in 
Fig. E-10. For the present investigation, a is assumed to 


be zero. 
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STEP ll: Find the time required for stagnation, te 
(sec), as: 


t =e 3S/U,, (E-7) 


where S (feet) is equal to H or B/2, whichever is less. H, 
L, and B denote the height, depth and width of the building 
in feet as shown in Fig. E-ll. 

STEP 12: Plot the average pressure, Py? applied to 
the front surface as shown in Fig. E-12. The reflected 
Overpressure, p,, is developed instantaneously with the 
arrival of the shock front; this corresponds to the origin 
of the time axis. This pressure decays to stagnation 


pressure, Da, which is given by: 
Poy ete ee (E-8) 


in a linear manner in time tg, calculated in the preceding 
Step. beyOnd a time st. , the sitonc surlaces pressure asetiec 
sum of the overpressure and the dynamic pressure. The 
drag coefficient, Cg, is taken equal to l in this case. 
This curve is expressed mathematically as follows: 
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The average loading on the back surface is determined 
according to the following two steps. 
oie PSs a Computesthe: cime, to, required for the shock 


front to travel the length (depth) of the building as: 
ee AU (E-11) 


At this time, the loading on the back surface is initiated. 
Compute the time, the required” for=*tne™ pressure. to Dui ld 


up to the surrounding overpressure and dynamic pressure as: 


Ee ee 4S/U (E-12) 


where S is as defined before. 

Sliped tae Vote tnemaverdager pressure, >, opp ted tO 
the back surface of the building as shown in Fig. E-13. 
mic Louding: Starts= at. ==": > =andetnCcreases= 1 inear! ye Upe CO 


Ph which is given by: 
Pye SP tt ye Copa tt); (E-13) 


by taking an additional time tp: Beyond this time, the 
pressure is the sum of the overpressure and the dynamic 
pressure multiplied by the drag coefficient, Cy (tabulated 
in Table E-l). The curve is represented mathematically as 
follows: 

For t5 ten = Oi 
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2 b 2 
t-ty 
Ps = Py, ; £ ’ (E-15) 
b 
> s 
Bore & t. + tp: 
Dae p(t-t,) + GAAS tS he (E-16) 


The net horizontal load is calculated as follows. 

STEP 15: Substract the back surface pressure, Por 
from the front surface pressure, Py to obtain the net 
HOrizoncal load, Pn’ applied to the structure. This corres- 
ponds to the shaded area in Fig. E-14a or equivalently in 
Fig. E-14b. The total load on the structure is obtained by 
multiplying the surface area, HxB, by the above pressure. 
The load may be distributed at ai floor level in propor- 
tion to the tributary surface area. It is seen from 
Fig. E-14a or E-14b that the most substantial loading is 
applied within (tott,) SEC,20r ((bt45) 7U sec. thus it may 
be regarded as a shock or an impulse. 

The loading on the sides or roof may be found ina 
similar manner. The loading on a partially open structure, 
open frame structure, or cylindrical structure can also be 


: T4ee8e 19,20 
calculated by consulting the same references. 
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E-2 Example Calculation of the 
Blast Load on a Structure. 


The building considered in this example is the one shown 
in Fig. 4-3. It is a ten-story building and has four bays 
in either direction. The plan is a square with its sides 
100 feet long. Story height is constant throughout the 
stories and is 12 feet, thus the total height is 120 feet. 
Exterior surfaces are assumed to be covered with concrete 
panels with relatively small openings for windows. Thus 
this building may be classified as a closed box-like 
SeLucCULe 
The blast load on this building will be determined as 
follows in accordance with the steps described in the 
previous section. 
STEP 1: Estimated size of burst: W = 1 MT = 1000 KT. 
Estimated height of burst: h = 5000 ft. 
Assumed location of the building fron G.Z.: 
d7= 42,000 ft. (about 8 miles). 
STEP 2: Scaled height of burst: h, = 5000/(1000) +“ 


i 
ENO ake 


STEP 3: Scaled distance from G.Z.: 
d, = 42000/(1000)7?/> = 4200 ft. 
STEP 4: Maximum overpressure (use Fig. E-1b): 
DpH Le A/a DSK. 
STEP 5: HoOrazontal component of the peak dynamic pres- 


Sure. (use fig. b—3) ed, — no 2 psd. 
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STEP 6: Positive phase duration of the overpressure 


and the dynamic pressure for an equivalent 1 KT burst (use 


Fig. E-4): ot = .4 sec. and teat = .45 sec. respect- 
ively. Apply scaling law to obtain actual duration of 
positive phase of each pressure: a = 1.4¢- (1000) 7/7 

= 4.0 sec, and t,, = .45 - (1000)1/3 = 4.5 sec. 


STEP 7: Use the pertinent curves from Fig. E-5 and 
Fig. E-6 to obtain the overpressure function, p(t), and 
the dynamic pressure function, q(t), respectively. 

STEP 8: Shock front velocity (use Fig. E-7): 
U = 1170 ft/sec. 


STEP 9: Arrival time for an equivalent 1 KT burst 


(use Fig. E-8): tal = 3.2 sec. 
Apply scaling law to obtain the actual arrival time: 
hee 342)-* (1000) +73 = 32 sec. 

STEP 10: Angle of incidence: a = 0. 
Reflected overpressure (use Fig. E-9): P,/P = 2.07, 


PNeLeroresp. — 2.87 B 124/ ——35.05 pst. 
STEP 11:"5H ="120 Et.) B: ="100 f£t:* therefore S = 50 Et. 
Time required for stagnation: ey se 3° **5071170"=".13 sec. 
STEP 12: Average pressure applied to the front surface 


is plotted as shown by curve A in Fig. E-15. Here the 


stagnation pressure, Por is given as follows: 


AES = 0.13/4.0 = 0.0325. 
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Using fFig. iE-5; p(t.) /p = 0.95, therefore p(t.) = 1.40 psi 
and 
tay tc =890°1374.5> =" 0.029 

Using Fig. E-6, q(t.)/q = 0.9, therefore q(t.) = .30 psi. 
Stagnation pressure is then: Pp & p(t.) + q(t.) = bnnhO psi. 

STEP 13: Time required for the shock front to travel 
the depth .of #the pbuilding ; t, = 100/1170 = 0.085 sec. 
Time required for the pressure to build up to the surround- 
ing pressure at the back surface of the building: 
ty = 4 + 50/1170 = 0.17 sec. 

STEP 14: Average pressure applied Bo the back surface 


is plotted as shown by curve B in Fig. E-15. Here Pp is 


calculated as follows: 


SE os OU 7/450 = 00435. 


Using Fig. E-5, p(t,)/p = 0.93, therefore p(t) sr S15 
And, Bay) ae = O.17/4.5 = 0.2038, 
Using Fig. E-6, q(t, )/q = .85, therefore q(t) =e 2) Sine 
Therefore: as Te tee O14 eee ce eel 6 ep Sl 
where the drag coefficient, Cqr is -0.4 in this case 
(Table E-1). 

STEP 15: Net horizontal load (in terms of average 
pressure) shown in Fig. E-16 is obtained by taking the 


difference between curve A and curve B in Fig. E-15. 
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If it is assumed that the pressure is distributed 
uniformly over the exterior surface and that each of the 
five bents takes an equal amount of horizontal load at any 


instant, the loading to any one bent is) determined as 


follows: The tributary area per floor per bent for the 
2nd floor to the 10th floor is 12 - +29 = 240 £t*, or 


34,560 ince Ate ther tt rs telOoOrs| COON mLOOM) jatilow. 1 bUtcaky 
area is one half of the other. Therefore the loading at 
bheezndst.oOr slosthe Oth —loorars obtained! by the net 
horizontal pressure in Fig. E-16 multiplied by 34.56 (in 
GeELMGHOL KLOS) mandate tie ws (min COOL, eDY 6. eo. sell oCCOLd. 
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and the funetion, Z(t), is expressed by the curve in Fig. 
E-16 where the quantity in ordinate is multiplied by 34.56; 


Or aS shown in Fig. 4-5. 
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AppendixeF. 


EMPERICAL METHOD FOR THE 
DETERMINATION OF THE NATURAL PERIOD 


F-] Emperical Formula for Natural Period. 


inesece 4-3" an empirical formula for the calculation 
of the fundamental natural period of a regular frame was 
proposed. If the frame contains shearwalls and/or non- 
rigidly framed members, the quantities defined in Sec. 4-3 
must be modified. 
(1) Frame Containing Shearwalls. 

Such a frame may be represented by the model shown in 
Fig. F-l1. Rigid stubs simulate the wall width effect. In 
this case, the stiffness of the beam members attached to 
the shearwall is calculated using the effective length, ues 
instead of the column center to center length, L, used in 
Sec. 4-3. The effective length, Ly, is defined as: 

2 


(lire tA) ls (F-1) 
j=1 J 


i= 
I 


where AyL and A5L represent the lengths of the rigid stubs 
at the left and right ends of the beam, respectively. The 
natural period may then be determined using Eq. 4-l. 

(2) Frame Containing Non-Rigidly Framed Members. 


If a beam is connected to its supporting columns by 
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pinned joints, the bending stiffness of this beam is taken 
as zero. If only one end has a pinned connection, the 
stiffness of the beam may be calculated using an effective 
length, Las equal to twice the actual length. 

If interior columns have pinned ends as shown in Fig. 
F-2a, these columns may completely be ignored. Therefore 
the example in Fig. F-2a may be regarded as a single bay 
frame (Ny = 1 is assumed in Eq. 4-1). The beam stiffness 
is based on the average moment of inertia of left and right 
beams with the length of beam equal to the total of the two 
beam lengths. 

If exterior columns have pinned ends as shown in Fig. 
F-2b, the example iS again considered as a Single bay frame 
(Ny = Join Eq. 64-1266 Thelaverage+baam stiffness, Kye is 


calculated as: 


for all beams 
in regular bays 


seein ek fee) Neen (F=2) 
for all beams in 
special bays 
in which a special bay is the’ exterior bay where the exter-— 


ior ends of the beams are pinned. Regular bays are all 


other bays. The effective beam lengths, Lo in special bays 
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are taken as twice the actual beam lengths. N,, is the num- 
ber of bays which is equal to the actual number of bays 


minus the number of special bays. 
F-2 Examples. 


(1) Example Calculation on FRAME#1AA. 
The properties necessary in Eq. 4-1 are found in 


Table 4-1. The calculations proceed as follows: 
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Then Ty LToeread Lrom tne Chartr in Fig. 4-la, as 


To = 1.83 . sec. 


The average story height is 144", thus, 
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The average weight per story, per column is 95 kips and 


Ny = 4, then 8 is calculated as: 


Substituting above values in Eq. 4-1, the fundamental 


natural period of the frame is calculated as: 


in 1.49 10 
Ih Aree) Peg Then @) See [053 * To 
= 2.18 sec. 
The rigorous calculation resulted in T) 22 SCC, wun 


indicates the error in empirical formula is about 3% in 
this case. 
(2) Example Calculation on a Frame Shown an Fig. E-3s. 
The frame shown in Fig. F-3 contains a shearwall as 
well as exterior columns whose ends are pin connected. 
Dimensions and necessary properties are inserted in the 
figure. The empirical formula is used to estimate the 
fundamental natural period in the following manner. 
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thnesleftenand bay as taken, vaccording to Eq. F-1;, -as 
L, = 300 - 2x60 = 240 inches 


and for the beams in the right hand bay: 


L, = 2 x (300 — 2x60) = 480 inches, 
respectively. 
= EI 
Ka BE), / N(N) +1) 
S rahe x ftouwherp him 
Thus, 
K 
i VEE 084 
tC Sura k AgeIO'G 
c 
Then, To is read from the chart in Fig. 4-1b, as 
T> = 3.34 #4sec. 
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a = 2K, x Me! Be) hae 


The average weight per story per column is 87 kips and 


Ny = 1, therefore; 


Substituting these values into Eq. 4-1, the fundamental 


hatural period for this frame 1s ‘calculated as: 
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The rigorous calculation indicated the natural period 
to be 1.54 sec. The error in the empirical formula when 
applied to this rather irregular type of frame is approx- 


imately 73%. 
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VB Yo Adie th Frame with Shearwalls 
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(b) 


Pao sete Frames with Pinned-End Columns 


(d), 


enamuloD bad~beanid daitw zomex% $-% .pid 


EI (kip-in.?) 
44.4 x 10° 44.4 


| 11562.9 
74.0 


| SEZ 
88.8 bt 88.8 


| |2083.8 
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